(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    204855,       4040]
NotebookOptionsPosition[    201849,       3942]
NotebookOutlinePosition[    202210,       3958]
CellTagsIndexPosition[    202167,       3955]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"<<", "FunctionApproximations`"}]], "Input",
 CellChangeTimes->{{3.513557687226746*^9, 3.513557692064764*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "g", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"g", "[", "x_", "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"ProductLog", "[", 
     RowBox[{"Exp", "[", "x", "]"}], "]"}], " ", "-", " ", "x"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.513604340287641*^9, 3.513604350091763*^9}}],

Cell["\<\
For x <= -16, initial approximation of ProductLog[Exp[x]] - x == -x + O \
(Exp[x])\
\>", "Text",
 CellChangeTimes->{{3.513597897453364*^9, 3.513597908203372*^9}, {
  3.513597942061433*^9, 3.513597968321474*^9}, {3.5136038142165117`*^9, 
  3.5136038189710197`*^9}, {3.513606206011977*^9, 3.51360620629854*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Abs", "[", 
     RowBox[{
      RowBox[{"g", "[", "x", "]"}], " ", "-", " ", 
      RowBox[{"(", 
       RowBox[{"-", "x"}], ")"}]}], "]"}], " ", "/", " ", 
    RowBox[{"Abs", "[", 
     RowBox[{"g", "[", "x", "]"}], "]"}]}], ",", " ", 
   RowBox[{"{", " ", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "20"}], ",", " ", 
     RowBox[{"-", "16"}]}], " ", "}"}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.51361651942808*^9, 3.513616535834503*^9}, {
  3.513616581292905*^9, 3.513616595250443*^9}, {3.513616639311892*^9, 
  3.5136166410961657`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVy3k41HkcB3C5lqGUq8JO5KoZ6febn9jMfD82UZRQqSjaQndrUpGjErGS
Y0WukCMVtVhZtfUY++mpdWxUOqkxRiZCJ1tudvaP9/N+Xs/7eZv4CzfsUlRQ
UFgnz/89FFA0NT3NoNf1E7nqXmKS7RCTXSl3vaqjmr+fmAgMA3g/yS2JCRsS
7RaT2Cdmu+umGGQdkTmfChcT3RWlLccnGbT/1ThsUYGY2LAr80bHGEwpD2uZ
PSAmoW219kNfGdx3o7GDH9dBRtzaQnsGGHTvyjy35p6EuIsK2UYvGOzewtoo
a5USpYlVwffuMthy1Obf5y5viGiV7+fH5QwueJrnRLV1k8Z5SgVLshlM1h0u
nPf7W8K7HT8yfprB5fqjjnqpveSDND96fhCDRl13XTY39JFyXVO7fG/53znJ
HRa9J836v2SlOTGoeThC9V3aRyIojLB8ac1g2ULHILVbn4nGiJt/sgGDDu+j
/TjcQdK5LaWpTJXBBId1aiG3hojy6p079L7wsCOzs/5J4lcSr6BdPCjmYfhw
xes5e4eJ7wovnQUNPMxqaBmbuDBKbFNUqqqqeOi5oayEOzxOgsrOj9bk8/DK
Da/J175TZGRtTbD6GR5+8pawjXMUQFpbff7hER6K2UlJP7AUwaBmZe8bPx7m
Xcn0T6pTAu/bjrv9XHioZNktMU5Xga+JC1JdbXho7VM3dkz4HXS/Te6LZfOw
5tyBXZnF6kDNevWBZvFwY1xEtKFUA2IcM9jO32jc32chWbhyFphPdZ28KqXx
8oyl2nh2Nlie0Twb2Uxjelp7k+3YHIjIabx/8SaNW3K3DpT/pgNPbg5xFxXR
GNfKvWcbpQcJxRPENJnGp5Til60+c+GcXlbUz8doNC4R7RxOmA8jm7UOLg6g
UXuWmtKD+4YQWPItdq0HjdzGuRNdZmwwCRe21C6nUbZp0+BguDEQo3osMKdR
ctB788VeE7i2qqK7VYtGKpNxYWWbQqjD0aqQcQpf0FacPzzNYbVT2fWoXgoP
uDad3m9hCfseC5+3tVKYqaUaKFu/GPo5utcuiShsCOxo3xbPhVrNNRWiqxQe
ytn5wNLMGtLHPkpIGoUV09stvMMpaLoZfGfpSQrruK2HK3to8ByL+/vQXgp3
9LPtWjIZsNUMizT1ojC/L+CvWR7LwITT7if4kUL6PaleY2YHfo8eCEs4FFqQ
TjdPj+Uw4phndVKfwphvISxeLB983T4xZnKLgqWJ4Sl8wE2O/H/0KAzhFw3c
z+ZDwt53rvpydwRstNxTzgeDFJs9FToULm0TLXv1gg+kvblIMlu+H1fJiuQI
IEY4qe+gQWFGw2BqzTMB9IR5st+yKDxVJrSP7BTA2phL5olyJ7sf6HfqF4Bu
hqvNS3UK41myINm0AC7fyVgvVKOQ7ADai0ugUcU6qUCFwiVXNYaHYwhYaUWn
O8udm2PwbiqZQOq8ZxcGlCk8c16qw8oh4MONKLOT21i5sdaqkkC/Z339I0UK
E5sjxi+9JuC+df7DELlvgxGnuYdAdcDB54ZyT8aXZox8IXA8VFu2ZwaFMvdi
5e1qANKoXQMz5fYIzFfL0gFwSvhzsFpBvucW2j9jA5SmaYz5yG3x/eA1PQ7A
zLztMxTkLj3R7rNtGcB/PwJDFQ==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{-20., 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.513616536222081*^9, {3.513616581727545*^9, 3.513616595568474*^9}, 
   3.513616641373825*^9}]
}, Open  ]],

Cell["\<\
For -16 <= x < -8, initial approximation of ProductLog[Exp[x]] - x == Exp[x] \
- x + O (Exp[2x])\
\>", "Text",
 CellChangeTimes->{{3.513559217738049*^9, 3.513559249663574*^9}, {
  3.5135978159529047`*^9, 3.513597818678051*^9}, {3.513597960710781*^9, 
  3.5135979614364*^9}, {3.513603811119997*^9, 3.5136038257344112`*^9}, {
  3.513606208594894*^9, 3.513606211981514*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Abs", "[", 
     RowBox[{
      RowBox[{"g", "[", "x", "]"}], " ", "-", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Exp", "[", "x", "]"}], " ", "-", " ", "x"}], ")"}]}], "]"}], 
    "/", 
    RowBox[{"Abs", "[", 
     RowBox[{"g", "[", "x", "]"}], "]"}]}], ",", " ", 
   RowBox[{"{", " ", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "16"}], ",", " ", 
     RowBox[{"-", "8"}]}], " ", "}"}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.513557187646406*^9, 3.51355720273917*^9}, {
   3.513557261947919*^9, 3.513557262196093*^9}, {3.5135574122010107`*^9, 
   3.513557423974716*^9}, {3.513557897130238*^9, 3.513557915081966*^9}, 
   3.513559203726622*^9, {3.513559434065024*^9, 3.5135594439338303`*^9}, {
   3.513597797944043*^9, 3.513597851439392*^9}, {3.513597982504842*^9, 
   3.5135979826162663`*^9}, {3.513603780747871*^9, 3.513603781001779*^9}, {
   3.5136043683735523`*^9, 3.5136043725258627`*^9}, {3.5136062138643417`*^9, 
   3.5136062152323303`*^9}, {3.513616625266142*^9, 3.513616631098633*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVV3c4198ftUohIbPEZ087FD73XWYoMyOzaFDI+FqVrFTKSDIqZJdZVgrh
VSIkZIe2yp4RJX5+f93n3nvOc849r3uf53Xxzp7mpzjY2Ngm2dnY/j+23bzy
Z31dHoiHL22stLF6nRbG2/rlIX39pG6VaBfr4x6nobuP5SHDyNWiXqmHdUN4
nrEpQh58AzR/nnEcYKkshl/wOioPNX4/TYoTh1n3fTqk6+Xlwe62DPSf/czi
nt3VuI1bHg76drz0vvONBeqKOrsW5OCgRB9fQ/EI68IVvQbaJzn4a+r/tfft
D5Zyp52W6hs5mG22T8qfHWVN7fR+of1UDnhEWq5oi06wlifFvDIy5QAiGyz0
DkyxOOrrpP5FyUFT78u+BtYsa9utU29t/OVgsXWs4tHQHEv8BF9Q5fENvv3p
dqGleVY4563eiMNycOk+k6l75xdrIltE/sg+OfAS1vN8wFpiWejci8ST5OBp
zMiQtNsyq25E6uvMdjkQizVLuJb6h3WeT8Vt2x9ZqN3qHH+5a5WlrHzoF2NE
Flr+7lltSFhnCer3PVN7LwvnOZPfnrJhQ9N2Tpf022WhL/zPi0hZdtTmOalp
3SALOc//lR7k4ED5lwM2n34mC9ly4wbZ/Rwocrf6l4fFsqBFu1wQ6MqJXJ+u
1oxlyUJmzkH3yctciDYR5u0RIwtuUdfRXMBmtOWKzuHH4bJQev7+PTNTbjQq
xU2dC5AF9xrdahP6FtT8rIV9j4csbNWO2X1Ffyt6aB497OssCwrXjcKiXXlQ
ZXdttOdR2Y18VOyqInlRk8UM66yxLEhn3ztYmM+HRqzM046py0Kv4CGHhT3b
0UL/ZSNbBVkYPiCdn8cUQBw2T/5ZUGTB+0przz9OQYSzE3c0FNrw6/qf1KKn
EBpIF3rgzi0LHrkOyxrUHShuhG86dlUG3EJ7Px7jEEbrHuzB3T9kILbeWpXr
owiqLPvbuDgkAzy9H1syPoqic78Xt4m/k4HjoV7f1j6JoY+h42n2NTLw75hd
qaHMTtRYdKRmb6kMWJ0fWCnm3YWKBp4PCD2UAdna7KgfVpLogsLNHS3xMmDR
LNih1SaFnOyXFXIiZcAknvjXeEka6Uc6GYcEy8BrxeHUaxU4JPZ5z3WVszLA
5VhD6BQlILb4nufax2VAO3Fyd9I7AhrX9ps1s5KBI4WambP3iajuYaX1OS0Z
4JswQNYaZFTOds3bD8nAeEqsxXAhGeXZWEcF7ZOBBW/OtGI5CrrFu1x3Q04G
HtvXNEUIUNFJTzXKw50yIFhFkgv/Q0OyjGleLREZyN5KqZwKpqOlkay54e0y
MJQdS4vmZKD6dOv+AB4ZqOMo0PlaxECRtny1QptkwFVs+4s9OkxUrPvpSPAM
Ey7eNZEQrZRF/mwJahLjG/NSk7Cfx+XQgRp96YoRJmR1z6z+4ZVHXQpl42Pv
mVAooR+Qq66AlnZdCbN8xYQLyJSP95kisjace3e4nglG7EVfIsSU0LNAB4JO
NRNeAe7ddw8ldL5XpUGphAmeIZKPXqruQauxP7gEUpkQ8l7wxvluZeRQa27J
ncyEltUPt+/rqaC6ibrctVtMEHj9Jn+qSgWF6ifrTV1jwreW6W+1yaqIk0M/
svU/JsxdUnr14/I+tC/+To7lOSYcZ5v+co5XDZ0jjMFnVyZ8UH43ezlVDQ1o
3VhZcmBCPJ11pLJZHRVdbjtL1GeCj6oTXegAQl927L72SIsJswnzxPjvCInm
eGSrISZciok6Vp2AodBX/MMmSkwwnWEr+7CwH1luMjMKkmRCwSGaOH+AJpqV
485sl9jA716X5szTRNFHa3/hxJgg/Vuij/29JnpZSE9tFGTC40P3jkpqaCE5
c44Jfm4mSP432oFt1UZb0ssjM+cYoCu4NbukWQdlN58ZXphmANbz+fGWdR2E
zUsr6E0yIKwI91BGXRf56kb3j/9ggKtn41hyiS76MnGSojzMgAw+B+6Ih3qo
ep/oq6YmBlD1NVLsKvQRXpJmdPAVA2QJQcE9v/RR5Lpa3+sXDNgeniNEUDdA
Vk0Oo83PGXBX7eFf0xoDNH8kl+9NGQPEdLWHMtsMEcNT2bLjPgPST4bXRfAb
oVvmeh9NUhmQfKnNM8nCCC2rHHXpvMsAF+PTyxY5Rqhp9eL5dwkM2KS1V1Nu
vzFyvtGQ1n2DAdu0qce4I0xQSq75j35/BvCuz6CTwmZossrKkuDLAJ7n7tm7
dMwQ1m77yt2bAbaP7F31/c3Q5yXnLHZ3BuBw+6osBswQSf8/R6YTAz6t1v0n
m2OOHo3f7gs+xIAmceGdFx0s0Ppasm6LPgM6pia+kxMtkOmO1IodegyQqLVp
ONRhgeY1cuLzDjBgv8urJKaeJdobU2HcpcKA6NLZ1XcaVgjke5vIOAZw6yjl
/9Q7ij78U3a7v5sBr3wML125ehT9eZOwXWwXA9hiz+XINx1Fyq4WR7eIMoDi
4Im7ZWiD8jK6x8Z5GZD0N9LFyM4WxQl28ZX8pkNd+fTzY/fsUfEnxVLaIh2e
s6MruJ/2qLX4lmXmPB0ELTT6AxUdEJeh2f34KTqUFwuVPX/rgALDO+X9vtFB
lW2ReZr/GHJaaDdX76CDebunSungcTQy/zt56C0d1Of3K1IWjiPXedyHoDY6
UJP3o+M8TshrzselvoUOMcEKzxNYTih4RjRI5xUdzkm4/ci874TuTTjmGlfR
4Wd6atO0mzPq+Tb92zmbDr7bl8XfEk6io9/EEFcWHQo3ryRY7z+Jhr4eCM/N
oMNSpKzUd7uT6OuXeL7RNDpYXbIiGSSdRLOfVPEed+ig218O/nyn0LbhYMOA
GDoMHuDYI8dxGun18KdFBdDhtf/uiv38rujGqzWdPf4bePceVSUFV9ReMT05
6EuHlIoZE5q5K7JKbGcxfOig3Xr3oHSSKzplFTvc7E4HZvzr5TX8GRQxsE1y
szMdkrqKpmsPnEUvh/lSQg/TwTuha3LrQ3e0+e2qFu3Qhr/JNMOIdndkWDs5
3mFAh6th5Ld6v91RV1qbuvRBOpxYz+8d0PdAXxyjB2s16WChuqe6atoDsX3h
3flXlQ6U3+a7lHQ80f7vPHf98HQgZ6IHcdu9kWtZnp0yjg45fYHeghRvFB+i
J7UgRYc9cepBCSxv9EMiPNtLkg7hhQVmmWe8UazxSrGbGB3YPL6FSTZ6o+Gn
P186baODm5xt37dwH3T+xqtJoxUaiPn63uUS9UVZ1s6P+ZZpcIcx8IxLwRe1
kdh83izRYLdvd2ShoS/C1Wv81v9Fg0Ep8z3sob6oeaGMXWeGBsJXgcN7wheJ
OmSKqn+nwbjcy5nIVj9ULh98gPKOBi/csmQycgKQuYjIUksHDXZGqLEYTQFo
9k9hoUc7DcaO3V95+jMAyTW9F33yhgaeJJsvNJlAVGCvMqXdRAOHsCu+4ZWB
KOv65F2nGhrIFx/Utuw5j+K+2S6k5tJAia3g/ezeICTfMpd3IIcG77M+C/gd
D0LtjyIdR7JoYFFf+OJfZBDiu1DZwsygwYmhpXjJwSB0TUAoo/oeDV5OPJ2m
h1xCwajl8MBNGgxxndSO7glG7sl7H+y4QAN8+MuL+f2haM4myL89kAYFizaP
JKdDkb/kC73rATT4VVOmEs8VhkIyDX+u+dJAR0ZSJ0IxDMUXOtDGPWnA8kzz
ocaEoar6ywVwasNv0Irha8NwtHm045GHGQ0WXD+7JH68jKIKhENopjSQEDb8
nbF8GQl42Jh8M6ZtvE9zsN4RgSTmv84cPUyDBM0L5W/1I5DM6qKCzkEaLD+a
VB+oiEBHBCTLdyIa5JY0X+ZLvIIy9rk+fU2jQdvF4aBer2vo+8R/45FUGuRc
xq9E3LyGGOkhuw0pNBAai03f++gaqtiUfLmNSAPNrvvafyeuoZauRpN3Uhvn
I/zyWnWNRPPuxNFBYRrMBTI5brtdRzqZH8Wn2Whw+vvw3am4KHTdYvzQ43Uq
uPb3/tz8JAq1cy8Fe61RId9AaJH4PgodPbft+/xfKkC5S3kdPhp5aLBKfy9R
gX9RfC/hSTRK6r1rwD5FBT0Z1Z/m32PQ6FbLC8LvqUC0jf/brBKHsnptMqr7
qVDy8rPu+8NxyD7Tsel4HxXmSnT2vTgRh97tcxUq7qZC1uzWPon4OFTtcrFA
t50K5nMeDR6zcSiqMXPQv4EKbDdv38stv4XkwqbV3xdTIeBo8fgRi9to9PDC
8ZAiKszbYvX3PW+jLPHlq+TCDb117kWxqNtIrIS92zuPCqI/guzOvryN2D4J
u/FkU6FQwcf8h1IC6mJppGjcoYJp70hK8q5E5Ld87W9aOBVuBldE1fMlI9FM
dZZdGBVi3N4nijCTUaXBVJB4KBUk9qxvbjJIRkv3zNfiL1HBb0L+jcK1ZOSP
drNHBm7w63f4qXHdQQHhZZt9zm3o7feoEtt8F53n+yCoZ0uFz1H2fxIZKWjn
k5vmnDZUkDH7icyMU1C1g9ZtsKZCK0+5BssnBf159FBYw5IKIv2TLm+rU9AF
Mx8xBVMqGF8UfW9jnIouJnHv3qlHBfbA+f/0gtPQJZwSbVqRCnKRzgHHODJQ
/JcPdnEKVJj5JbbFRCID5WVdv6kkTwVCgY2ztUIG6iJ9WfKXoUKFqWRas2MG
otDjGtcpVAi7Lv1GtjYDdSpOOwtKbuzvag01DM1ERO2CNOXNVHju6Bb3GZ+N
9nFZvevjokKb0VTMAZSNjBvZN53npEL/jU281UezUeBBG/daNipo8lvas+Ky
UduhLRp6fylwT9Lw+3b2HORvcXrAepYCQ8MhSq7jOajlFGHHxUEKjAypSsR+
eIDuiyXmE99TQO25JSv93wPk28J9oK2fAtUzl39/3v0QSctOue/upQBHhenR
JceHyO/X06b6DgqoaEyVn/n2EOEvG13gaqSAw1N174Vfeeh8RuCXmMcUWFVu
eGaLCpGx+USA6iMK1PTM3rh5ohCRuBz5PxVRwJlyOZ3vRiHqcNHWUCigwOn2
P/9S+gsRWZ4/sSuHAj9PzNlb+BWhd7XZ+mL3KHBKxXPasKYY0YfaH2dEUOBZ
mnb2kFoJGjkzc/z4ZQpkxjv57jQpQRnL24Vw4RRwN9v+4tLJEiQqauabHkKB
4Q54efNmCeIy6953/wIF+OsOc3P9LEGfm/pfpHhR4H1CWNXZlFKUVPa5O8me
Av1anTY8u8qRuSb7FSs7CuALhNJFlMvRtk68qqgtBUpzJfn1jMpRxJTznURr
ChRkTyavh5QjH9p3+wRzCiTJCzdy/ixHRvfHvt/Sp8CjS0/GAmoqENeN+d/R
yhQo2Xk480RIJVJW5EtV3EOBP8oW0TbplejUAPlAnyIFLD+l88bUV6Imik2k
tPxGfYpHZOzZnqLIhnrxMjoFNq8MBVlEPEV8/6LV+qUosOhetCCV+AwJe1Ev
4rdSgPte3qNzw9VIR0xTuombAjOdpOgMjhrkV2fbcHYzBepiJjQE6TWojy+W
t4KTAgKvfjtE+9egO/m/UvTWyHDxzriOhPBzJPntxXO3BTIYec6pjtrUIpKV
/dqTD2T4IG0mabEVkPogsdZ7mAz/+HJHsqQAmTlOXJQdIsNpFdV4XmVAwacv
rOQMkOGSIWeUwjFAA/53ft3uJkO6SY1KbyWgqOSece8WMqgq3hAvdXuB5gcO
98s+IYNaNuNV4eRLtMVBOGmsnAxPrpQvvd3UgKS/DFnklpHhdaBzsoB0Azo8
drZLsoQMz4dKuDnNG1DuSuRb3kIyHP8g9/18VQM6urOxYSyDDNvTD3Uvxr5C
9XaoJDeaDGX7k0t8LZtQUuebdy5RZLhyWrcyyqcJuevaLtBvkMHJSrGu5WYT
2im/cX2vkaFLuPVfRWsT8uUofV4ZToae69tqj2u9Rox8UsvrQDKYdTRzMtWa
UdIS79exk2RoEpvQ/azbijzc7nEWnSDDqaz6KmHXVqTzmUY+50yGg3TzTZdv
tKK5Fl3X+WNkCB8dPN3f0YoOp4VM/7Elw0rUWc48+zeIQ2fhD68ZGTYxbpVs
C2lD524N7pBDZKAyqoZiRttRtZQzrVeDDIzKuTZt4Q60uWiMFaROhsGWt7Eq
BzpQWtPyqda9ZODY59Y9cqcDtf0VfXZaiQz6TVIFiZROxDx9xD6dSob/+C1G
Vj53olH1thwBITJYNttLOnp2IeXmI1VPBciQH4K2+13vQqGWQ28dt5MhRnd/
Z3l2FxLzGl8q4tvQC/F9eHegC+nlbjEw4CbDlJ/LBFOnG+Vu150KWyVBWHh9
5x1CD3IeqVVZ+EGCvLgXO7jXelGC8cLJ0u8kIJreGRDe1YeantESPEdIwLbw
sv3gvj5Ej7k9P/GFBJO35s7s/q8PzaqceTwyTIKTHA+zMsb7UPA1YXpfFwm+
GQxQ5b/0o3sMN8mqOhIIvmnN+jH1HrUlZBwKqCWBacm5mxSBQbS21ntB5TkJ
dDLwDfFKg8ip+8D70ioS/CwNP7ESMIhoQaJJBRUkKHI/ND3FNYQq377YnlpA
gjc3xrPqqcPonZc4Z0gSCR4reIanxH9EgQt6ZEIiCZ4Rq5Q86j4iKX+/g423
SbBD3C/u/PhH5H6xK4r3FgnWFUvlLLU/oS1Xo4XvRJHg+kXLcb7lTwhLYaOU
hpKg559o4WjlZ1TYOKr/7exGHvXtkqD3FZnri7ldPUOCIClr3oXjX9Fyq24M
3ZUEGuniK4cufkV6nVnvPE+RQDqmdtaz5Cv6Omhvu3qMBF9GMEqY5DckPtvp
JmJJgonOHBne1W/oys6q2IP7SXCDuIXDePA7ErqQ+IYdI8HHJUXlm7+/o/vv
vbc8Z5HA/JW/z7LwD/TsDiNcQZ0EDeExqZqmP9C4aKqfhAoJvFi/s8qaf2z8
70LsJxgkcHcYKNZ98RNJ8ukyboqSALdzRrGmawzlu+FdDERI4N2gMW2+OIZU
3/zL5hQmQZKQwHdR8XFkcqNyd6AgCQYc/6UyHcdR+BaaoBMfCXrtLZ2iJ8fR
KBfvshLHhp/T34xOC02iin+djX1TRJhmlP0zj5hG7Ma+p5InifBpZ2KkS9E0
Mr4vtunoBBHMs9O+l/VMo1HMUef9KBHiqMn3RsgzSDJ04uXQNyJsn6m41d06
gyI4NsPn90TgyWt0C705iyy5NarHG4kgLeI5YLMyt9H/f7QpfEWEEho+eFlg
Hs0+DFtxayCCpXh57hPaPLqh37xvCogQaJSzHnN0HtVdt3w6U7Ohp+/WUF01
jyh8XhW/Solwhcdoihm+gJYEch+tpRFBwNu5+p7MInp2XlMzJ5UIn7tf8b41
XEQXvn7oNkghQnR+XTnjzCJaKxddSbhDhLoiJ6brg0XEbR2pzbxNBDvtpi+/
CEtIPM1twDqSCHIiaTyRpN9Ina7EUepDhBo/LUO3Qyto9VZ7gpX3Rj5Xc1rD
PVdQ3Z+z1FVPItx+Z5fcdnsFabVlHz7oQQT1+krOf8Mr6JCnSPIHFyJUtuWc
7/P+g+yfLDN5HIjwjHZeozD3L7qkWW954iAR7rpEVu/Yt4Yo17Zy4vSIYBOb
wnbk+BpqbztSMqxDBIM31TeaI9eQ1NFRHistIuzUJL6wHFxDdecEQR9t5HE9
1549dB2tpZxgyO0hgnJhj//0WTYseIl7fVmKCBLrwPWjjx2jsMyLnuwmwurr
vK8F0+xYe1iqjY8kESxWxppububApLYpVkxIEKFYOt+0SpUDqyPanvkoTAQV
FvVp3B0ObM20qLuBhwiZ4djeAGdOLKTQNC92iQAanR5yJwQ2YalbE/QVFgnw
KnduZ5fcJqzapX/03QIBLJJUrnoYbcJ+ER3pInMEiG5VrqFFbcJcU90KUiYI
UC5RebJmy2bMNOZqUd5nAoi9Y+OM4uPGCJ7PS162EuCthLj/031bsf1v101P
thAgxSabKeOwFbNnas9taibAUzPikb6wrVjSzxZFg0YCLHNa+7S82YrxHu8v
66gnAN+oqPFeZx7sl+l8xXAFAXbW61P87vJiTUq0qqX7BODdP14Le/ixnDCl
5/fTCNB4/XdPpiM/FtbJqtdLJUAOf7xe/XV+jHXOrDHpLgEcd3ZWl3/mx8ry
L7xTTSBASXHMr6u3tmNpuLdj/tcJEPlexTAxRADz5ffZ+fs/AghPPbW8uFkI
M3cI2p3uQwCR8cxYEZwQJl90FXfQmwA+EhFaPWpC2LhBCiX5HAHCClQK6j2E
sGNXXintPbPBL8OzWfYLYYaroocCHAmwkJbull+6A8OP11z8rU+Ahwv+20Ij
RLAREd+7lQcJkNe1FMeVKYLlaco89dMjQFpCEeFxrQgmdzd1fkGbAH8X+OP8
f4tgLP1LZ2YxAtR7u5T2uItiVg8w6zFlAkhw8bWtOoph0c4vlIZwBBhZeZDn
7yyBmcaeN70nTQDJ1894pCMksB3ViudspAiwKYTO8ytXArsnmJXfv4sAx2a5
48njEthDCMf1iBLgoPHt14W+O7GXUjr8b/kIwJEhr3gxfhf2e7BprG4ZD7tD
zeJ/zO/GFKQD/zj/xkOmg9CL1d1SmOsJOi/3Eh7kyisemxpIYQMTUTImC3gA
hwOlFRlSWPWqqeenKTwY/HyQ7W8ujQVLDf1a/4qHC6EWceJOOIzLeWb9wFs8
3NMUckkcx2OsBxkC39/gIbFURu0YFwHzGzfDX2/FQ54Tl5axFAH74VOh9e41
HqL3qcekmhOw5svnrzi9xEOogEE4ey0Bi8rl5A1/ioc4pVhBybtETGhMTLQh
Ew+sZs5FphcZU+AJ0AzOwEOl6Gm1f9FkzITZ566WjgchgSDNxXwyFu2R0PA4
FQ+pnT8abEfI2KZ5Ae/UZDwkOQvT2O0o2PKfrW1+MXh47KTiOG5CxT7wrYbR
zuPBa3SqtMqGjq3K2hV/C8BDF/eJQ+8u0rGdJtUD9/3x0JtutkPsPh2zuhUo
L+KLhwa3r1ay3+hYp8jiMLsnHohCl/KjPRkb+U/vHTq5ka/jJj+jW0wsT+Hz
VIwpHsQ/vOku+iOLXdXaHGRigofRxsm0vQQ57JSFDI+gMR624I0KlgzkMEJg
ICXhEB40yFdWhe7JYWn1Asfu6eGh+Mia+BuWPBZvrNn5gIWHvV7jN1l6CliQ
e1ZZPQ0PJwb17c4WKmK2wc0Hwqh4yLgYH1PzUhFTi5tu16LgYe32/ofMQUVs
qVx9opGIB0drg01ntiph3n+7iG1SeCBv0TvgcEYJO32DM3FAGA94kw8hpvJ7
MLO8kwFzbHg4MqsGiT3KWE7X5eXkdRzI/NrEcW5eGVtezTqPreHg466vBG8B
FSzD7MvFqL84QMxGvpXDKtj0H4dQ8hIOtD89khFtVsGijayv20zgQOcpt1Rd
kyrWPG+Q8qIXB4+jNp9I/rkPk9x9RtK1Bwcpe/f/NuRVw7wORqbxd+NAi214
XFFeDRNLbUq368RBXnXuz3sBathpXe2cxVYc8HtlVX3hUce47rCK6YCDk9L5
269qaGD7kXz9rQIcKP1bLTr6GmGBOqu2Jvk4cNlowRRnEFZ2qGWJLw8H8v8J
xB4QwzCK7Qm5yNwNftKW+HUXDOMLSE4LzsDBtaDRT7x8+7HBkvWLbkk4kDrD
dc1E/gDmS+rcpxuOgwJ1xQc/kjWxR8y0Ho4wHHTYFNX6PtbEfiqd9YIQHDwQ
jPUgvNbEbDW58jQu4WDd9arfhyVNTNNxn5hSIA5W/xmG9llrYfx3MhalzuGA
rGO396+0NpbH6122bIMDPLljzqRVB1NXrO2IO4oDK0UJypkxHazNausUzRoH
XzyJPKVbdLG5zEyqjQUO+l9Tpt4e1MXU93WlVhnjwJVktKDdrIu9Obnn2gVt
HLjp8ocf79LDpmsX7VZlcLBl178Kr20GWOg3zfMJTBxMlteNzigZYEJbY5Nk
GDiQU33k8fCoAbbXgvLOnrrh75xNIeRs4Met9GrxODj3TDQ6d78hJij2TCFY
FAdD3o5zV0IPYTksLmNRERwkRgwtleUfwlSdTd0e7cAB85x69+7uQ5ht8Wju
RwEcMJwU4h5RDmNZ2hK79vPigNfON6Cp8zCmfObUvv6tOBjvD0qf/HsYa4ot
tfTcgoNO5kLGEaoRNvHeIC5904Zfv9WU78FGWPB6YvFero16i75wESw0wgTI
X1s7OHDQo+V6PaTfCMsylBt1YccBpeq4jwKXMabsdWETGxsOgtQ0I0iKxtj/
ANlUiXQ=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{-16., 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.513559434624373*^9, 3.513559444256425*^9}, 
   3.513597672893651*^9, {3.5135978001891336`*^9, 3.513597851731784*^9}, 
   3.513597983351156*^9, 3.513603781579957*^9, 3.51360437354519*^9, 
   3.513606215685413*^9, 3.513616632296583*^9}]
}, Open  ]],

Cell["For -8 <= x < -6, fit residual to polynomial", "Text",
 CellChangeTimes->{{3.513604261716036*^9, 3.513604278598925*^9}, 
   3.513605301167666*^9, {3.51360623949196*^9, 3.513606240051175*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"EconomizedRationalApproximation", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"g", "[", "x", "]"}], " ", "-", " ", 
      RowBox[{"Exp", "[", "x", "]"}]}], ",", 
     RowBox[{"{", " ", 
      RowBox[{"x", ",", " ", 
       RowBox[{"{", " ", 
        RowBox[{
         RowBox[{"-", "8"}], ",", " ", 
         RowBox[{"-", "6"}]}], " ", "}"}], ",", "4", ",", "0"}], "}"}]}], 
    "]"}], " ", "//", " ", 
   RowBox[{
    RowBox[{"N", "[", 
     RowBox[{"#", ",", "17"}], "]"}], "&"}]}], " ", "//", " ", 
  RowBox[{
   RowBox[{"Collect", "[", 
    RowBox[{"#", ",", " ", "x"}], "]"}], "&"}]}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Abs", "[", 
     RowBox[{
      RowBox[{"g", "[", "x", "]"}], " ", "-", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Exp", "[", "x", "]"}], " ", "+", " ", "%"}], ")"}]}], "]"}], 
    "/", 
    RowBox[{"Abs", "[", 
     RowBox[{"g", "[", "x", "]"}], "]"}]}], ",", " ", 
   RowBox[{"{", " ", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "8"}], ",", " ", 
     RowBox[{"-", "6"}]}], " ", "}"}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.513603897245338*^9, 3.513604013672333*^9}, {
  3.5136040485451736`*^9, 3.513604111519465*^9}, {3.5136041633624563`*^9, 
  3.513604197105154*^9}, {3.513604407714448*^9, 3.513604460347109*^9}, {
  3.513604563371376*^9, 3.513604578148593*^9}, {3.51360569326877*^9, 
  3.5136057097927847`*^9}, {3.513606136588929*^9, 3.5136061928467693`*^9}, {
  3.5136062437047443`*^9, 3.5136062492748537`*^9}, {3.5136166891164207`*^9, 
  3.513616693985552*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "0.0023558729252434542899732532691096176`12.159846538800847"}],
   "-", 
  RowBox[{
  "1.00124585758651323751150587424127242039`15.601961450540468", " ", "x"}], 
  "-", 
  RowBox[{
  "0.00024789653095355560075656595865177128`15.345936849257336", " ", 
   SuperscriptBox["x", "2"]}], "-", 
  RowBox[{
  "0.0000219826301041043223930090730910013007421914251249100843`16.\
532659827491685", " ", 
   SuperscriptBox["x", "3"]}], "-", 
  RowBox[{
  "7.3264168367695465481249852924786546083164179405067`16.69897000433602*^-7",
    " ", 
   SuperscriptBox["x", "4"]}]}]], "Output",
 CellChangeTimes->{
  3.513604607905007*^9, {3.513605693867379*^9, 3.513605710361066*^9}, {
   3.51360613720076*^9, 3.513606193632756*^9}, {3.513606245423932*^9, 
   3.513606249700329*^9}, 3.513616694698867*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13c8Ve8fAHBbRsio6557zzXudUNGQxT3Y/QVSZKRkZDKJolQUpHV0I40
rZIiIyUNH4UkkYa0JFFoyigSv+f3D6/3695zz/N81nOOut8mp40iQkJC2eTP
//9/emD1b2qKg2kZnW4b9JeA/k6xuT7ECv8Wv3ytugS2LmzYcHeSg3XCDS7r
xZeARMGy5vh/HFzgkKtT9NYK+ImOp8bGOWhn1Qty+60g0Mx70dAIB4siW3Rm
f7eEL6Vx0Z++cDB6XUj/hhoLWBBoesmauO5+ibh0sQXEc/69zR/gYJNO9kRN
tgXIZuz6b30/ByNC10R6b7WAOSGpSl2fOGizOXXXBn0LCOcdL3v1gYPF5r81
qCXm8PNk6bfmlxysmvtzSG+2ALa8+55NE2eW8l2figlgVE3PNqKdgw9DxB+f
+mAGfy9eylV6wcFzh0W6z5wyA4nruW6eTzkIYS3GXjPMgHp6rPZzMwf7jWeE
lIiawlLpuOMi9zhY2LVktpLoIni44oaVSy0Hn4v3353XYwL2h0d+FCAHB0Xn
vYqqN4FVjEi7ZTUcbL91ZrZvmgl4aYVMHbxN1nNp7Zsn8iaw2WptEPsGBxPM
TlRN4xnD6W2WApMrHFxUsaPLItAIjlxpjzl+mYMzDY5/X77SCFI7Q8p/FXHw
uH1mR+RCI4i0OsEvvsTBxtS9lUriRrBM+ssMjYscvJVvs/V83gIYPXnsk0wu
B3PdQ+Rf9s6HVTc/H3yfycE+b1GHpQnzYOmX+CYz4n0XXZIvB84DM7aiePYJ
Du708ojWcZ4Hs3ebbXM5zkEXquVA9Ox5MGl7eMPDIyQfjEJFeD4XrnQsXlRx
gMQ7fb7UPsO5IPHnQHdKEsmfWO3q5b8NwCs3xeFzIolPifpDkWcGUG6/s9qG
2Ovky+HPJQawNifiyLTdHDz07vXPxQEGcM3O2WpvAgerd2u/EXqtD+vPMHIP
xHEwqFjb7NcDPUCrvHXHNnFwuk2sRk6dLsz8durxcDgHuS01z18W6EJo5rFF
rsSqBy3zTFJ1YdbX5BkzwzjoqrVIEGunC+HHA2szgzlY3n137MtTHWD16amf
2sjB1+s1kg580Ya4A1VdOWs4KMbZXTO0eDZI1+k1DHty0H613iEZzmzIHs+9
bEO8L0m22FF0NlQHHNj6zZ2DEwqR1/2a+TBh6Se7aDW5/mKmS64vHxJGZUye
OHKwYof1kYjDWrDHx+fgpDUHrRXSVdyVeKB84nnUKuLfmjXKbya4UNC8zDP/
Pw727HawTP3EhYZFC3h2S0j/ZeUFelZzQVJZ6tZxCw56bin81LeeC3sbyz/N
MeVgVKvtybS7mnBwrgSsMeTgscLfLQOHNODI6qelNw04aHmoIX7HLg04sf2s
JoN4WmFuqmGEBpyuXyj1Qo+DrWvlG0ZXakCRR8BzB10S79jeZuEZGlC3uzHY
SovU++WXJ8ez1OHBhWPvzvM4aCzPnJ68Vx2aHvk6TnE5+HKAJ68frw5tKmNG
tzU5OL95SfIbH3XovKQtvFCdg7UFsu45s9XhT9veTG0WB7dX3Nt3r0YN/o6u
lk6jSH9dU8zTqVCDSUpzxycmBx1ehr+5ekENxP1v+eWpcrCgyrdLIUMNFMe/
6LFncVDlrtqAjrca6GmsqFNQ5KCowzm5QlE1MLRRNd40g+RjccPOS4McWBDa
e+mxAgedHy46v+gtBxZf33FwrzyZH1Ou9f/KOGBrV+IpNp2DgsJzWxR8OeAX
KT/4W5Lsj9sya34DDec13d/ZEj/J/Qhry2nofH7+4UkJDprNLkirO0uDp/G8
XFNxDr7RnbveNpaGVRMuzjtFSHxrPLdw9GmwSMmulPhHY7VK5f4X+WxIMP6Y
4zZB43Pbt+tKj7Hhdp9uRuFfGu+5+cfU7WGD8fI7/nbjNDorfl93YiMb9BW6
ZmX8prEoL2ffG202sLN521R+0chZMaVw8zYLPJeH+/sP0giCWKNppSzImrju
dOMnjS7n3Vfuz2OBso+trscPGu1Mo47M38cCWW7I29NfadSNrHk+6sUCuxcV
jd++kM93XNrZv4oFaSkT14D4vJ3vAXkbFoj2HzjQ1U+jqAWTMTKXBePFpcD9
TOPWAvV+WpoFJj5jOtGfaOSrDJVdEGLBVgWrWQ29NPYGeHzy+U3Br8hnPwJ6
aPz0oHOHfy8F/caj5y9/oPFd28LJ2/cp0OqHAxNdNPoLvzJ4dIuCDdmpcSuI
n1pNGEtdo6BrguH0o5NGTVbcDOUCCjpqTUXnv6Ux5nxm59p0CrZ++ayW+obG
Sq+MLSJJFCirHIM3r2lsL/I3eRZPgWPg17ikVzR2DHQzxyIo+H44K/NlB42h
Bb1/V4RQsP/Wf5W6xD2NnFUtGylolDvz81k7jbzK+52OayjwN1kmN5v4b7BI
ltNqCsT8RnTjX9AYtChVaucqCiwqVwRwn5P4rFni4WZLQdWayXdRbTQOTwTc
nTKmYHVy0d/GJzQ6tseXrlpAwXDJalU28QnT79hsSIGhyFWX+hay37e1AoEO
BS26ayJVie81J+nM41MQ6ip5KOwxjY1F72JXcikoLPR5pNJMY5l7saoIh4Kl
T2X6gx7RqJy59usJFgU9f29I3G2iceJ25x5nJgWJvA1cRWL59xa0MYMCtZUK
Vv4PaZSydn5rOZOCu7G3faobafzN5ezcokyReR24Q474zjUDqWZFCsYfKZ/y
e0Bj05Ob7XYzKMgawarrDTR+ABj4IU/BQk5YuzRxmFy56C05Cp7bqg5719O4
mHmEd2U6BZGR9TMq6mg8tyD5+z1ZChRObzaQJP5Ai6ybkqHA/sfD4Kv3aNx9
kOfxWZqCNCuNC261NFrJBZqsJ647vu3DVA2ppwiffxHEQv1PWYV3aWyr3Kkr
T64/q7hz8cQdGgcPl7cdJTYz03V3JL6+ftzajNzv9caX0fm3aZz9L1x8GllP
7MGko39u0ah/NqxklHjmTYMye2KZoe7kaWQ/17rftJyvpnHLlt2fzRQocJJN
+zp8k0aV7ORFx8j+fxotkF5G3Kz049h0JQoyfLr4Z6poTFu3gn2JxG9O+n7r
wRs0Gm2af8SfxDfwbc+uk9dpNFTjaduQfEhIHD77rZJGwZPjqUEkX/kGgtuW
xAznsgXFNKn3xOO/+ytofPsowS1Tk4KEK5YqQOw8wbAXaFHAav8270g5jea8
04pi2hS4ay8NX1xG8j1E5Q/qUxBkuUw1u5T0f85jvw9zKdjmYV83dpXGZJM0
/Erq73S6E/NmCY1qionzXU3J/fq9G4yv0OT8WP04eBkFg8J+mzMv02i/4Y/G
/BUUiDA3sn4X0biwdDBShdQ71y4k8volGt2Uw5W0PSgIKIqhjS7SqP3Z1SIl
mMT33raHxy7QuEc8P5C9ieTz9Y6o4QKy3l/X9j/eQkGR9J6minwSH/rSj9gd
pB+DD22dl0vjrIKZMb8Pk37WvdRicIbGxBkrzCNrKEhdciXu4Gkad8l3H9pb
T+pvzVXuj1Mknxqxd24+oqB6X+W2kmwaR3jj4l4dFEx+qdXSy6JRLLxF58ov
ClKuvE7QOUrqL5G2WqPLgsy6d9p7j5B6yc892TqPBYVvu573H6bR5PFvWY/F
LGiS/axz6RCN6SJ1EoXLWCAXNtTOzyDxLf7weGEQC47ryRrw0mlMzbIbGr3M
gq62fc4xaTRu+ije4lPJgjlbZWIfppJ67RqR6rzLgvt3pWvDUkj8pp9JZz5l
weBKKefrSWReORxxyBhjwYpIiRibBBolzRPEFtuzQfyGUE3QFhoPxt23jJxi
g+OaXR9vRZL+2EkpGcvQcHpqSlKOePqz+Y6ys2iYbzvlWB5B6vNd++9ect6s
e/WvezyMxs8zJU85+9Bw5++4xP5AGlN0FpoM3aMh2mLEoWQtjeP+PAH/GDkf
nz0SkiUOGrJOqj7PgV8bc8uDvEj8vFLT3Io5EL5v5UzeGlJPc/BTcQMHAtsv
vTvlTiO75FFH4xgHvEK9Q9OdybxUvlv92FAN/st6kL5hGY3eOc/iQk+R8/rn
yTqmEY2PhvNFjsSqw80brKPO02m00bqQP2+uJiiufPbjgiyN8WNSzakmmhD6
Kd1+XIbUXwfr6mtzTaBVfovnSJPz77zga6yDJiRGtsV+l6TxTODGlydCNMFe
L8U7XYRG14ZdOcsLNKEz94d2zW82rpLOe2sykwsiGfdQp5uN1Ruyy/77woUW
pSdF6R/Y+ElSkdIb5EL2yXfH+rrYOF/R5InCby7MK/gTeOE9G8MzqhweivBg
/W39GRrv2LhJ+y41qcqDuoHsdaodbPyPij62yYYHKTZbRKa1sHFliPzA3LM8
cHq866v/YzYep7v7QvN4QDtntNc3szG6gYU5hTy47n2pKOkRG+/PKds5Vs6D
z9HvnaYa2agzceKuzwMe2OYvzxu9z0abU8u9p77zQEqY+1/vTTaKL+7tdl6k
BQpKJRcXEu9Y9rGXDVowk2cik1bFxiDwfP3eSgu4y+yf6txgY9be2w129loA
h6N8I66R+/2bZXPbWwui1Ovj/5awUdBxMUoiUQu2zV/ZZU+8KeHwPdsULdht
/WrJ2WI21ivtZiTu1YKMoG/SllfYuOvj7pTXR7TgUpnKyZRLbMxhUEvU8rSg
09K/ckY+G5/sf7/8T60W9Dj/ZKzPY+PJ94zOS/Va8GXjtvhruWxU49yWcHqo
BX/SM5a45bBRqdDINOWJFig9vd52+iwbVX8cOrajUwts/SS/80+ysT/Lxez8
Hy1wiDq8Ki6LjV2fKlqq/mqBawpV2ZRJ7p9Wf/HBpBb4FRnEh51gY43g+MEH
YnzY8ctNuuIouV+DVrGjAh/KEwvJJkg8V/uq7OLxQXX6iVtHDrDxsodB01c+
H3ZlJjl+3s/GZhWRzJU6fFhxxXvboX1sfJVSvOG3Ph/6Xii3dKexMXH3fPVW
Yz6s9BVZb0xc/b1H6usiPlwf+PF7Xyob/53Qa5s05cOeqSZ1oxQ2NngwpSUs
+MDR3h2dmkTqg3XOMNuGDykV4dJvE9moazOZt3EZH74KvM4ZEs+aUHyvtZwP
1U7GD1/tYiPsjrHc68CH1fHfWHMSSL3+XDT+3IUPdyTelO3awcZCXZejK1bz
gXu4cemLeDa27o2ovuXGh8GCvIiE7ST+0tvOxnryYX+rR92TWDb6NqhPbPHh
w5CHjQePOEtuyiWLvJ949iz4HhfDRqOcjUrl6/jAH5NnaG5lo9Mt7VP16/mQ
kfTvSkw0G7NPKa2v2cCH4elfLJujyP4qzeNLNvLhnkZDSPQWNq7f9tUjNIAP
2sUVQk2RbBRKd9M3DeTDIeOc4zTxqytO+lPEo7UZOls2szGl1e5AVRAf1trH
1zyIIPXcdXTIP5gPde1BLixi5oGFSdIhfNBZ59YfsYnU5+lo0zziP9HzlJjh
bExtzvteEcqHhr3TBfdD2agwf47kyTA+HD3X5x8aQvKNK7ycwvnge+3+IZVg
NrY7dlS8J9Z/eLb6biAb3ZX8Ri028aHpl4vcDH82/oqPLUog3siS8Vu/no0q
gYYx0sQMuWMXNP3YyNJQZWSS65unWF8++pL4Mn4VT5D77RosMMj3YeODIGcN
U+IFH/WjNnizcetf8wgnsj45ry0n6tayMWmiyraVrL/v+Y0qLrHP/DebrIhP
NVj861lD+uFc22dpsv8o82SONfGK4PIQXxIfh6qHlgWeZN6ojo9cJvETKXJK
2ejBxguWqSt5JN5vNTIL693ZyJVLZzv7k3o89aaJR6xQa68YQ/ITdGCD/KfV
JP7szUPnST6tJC7NXUrczZr8ccGPD6yd35wvuJJ5J75qKpfk/0nE1ix/FzaK
LvTj7CD1UtRfXd3gzMbg6lf6a7xJfftNvdUilsyaKTBYywdjlzT1z6vYyFn8
k75J6u2scXZRwEo2Fve92uziyofY0s7mBw5s9E9eLNftzAcnbc0ffOLrqub5
G534IE5dmd9nz8a/AS2rHFbyIXTyzu1AOzbOMdCEC7Z8WBoj8r5xGRsdBN4v
upfyQe3nUmFtYivr3Dkq1nx49qHVut+GzLMhqaNrLPmwuP5DS5A1G7f4Rv4K
I/2pDFqDD/9j4+czKr/cSf9+vx6spEN89o743UVGfMgpHHIbsGKjnINh1VtD
PkzbL/4h2IKNyt2+URfJfGh30h4KMSX52ds+b6USHwbcBjLuLmbj0BZ3XU8y
Xya9LuvMIH7+oZfhMZ30T4Ce33UTNjqbzI2dJ0n2v31um9BCNnptE3Q4jWsB
lb/o6nFDkt9XC5KWkXlneGncrs+A9I9Fo83h11rwX8mtT4uJZ5RcL25u14LQ
KgHdpcfGzAsHP9GtWnC32fKAji4bz+i0qRvWaIHvyLKQGh5Z74/642JnyHwf
l5ZUJA5xzG5LzdKCtKlHuRu4bGSn5JRPHtWCMimH11KaZH4OBUY+IPNdhHZa
5qLGxgRdEroYLchf6snvZ7KxxFFRdfNKLejPDP6oqEDOj+iYwrQRHkTsS5Td
LE/6QZ55su8HD/4kZBu1ypF8rEi8LxjggYR/U+q+6Wz8srTs94NOHnAX6MwR
k2HjgrgbF9aQ8837SX/UiDhZ394fw7tO8ODptCCJjr8sNP7QOtY4hwceE7sM
FhK/OT5t4imPB10/styPjbNQJt468CnNgx/tjUWOYyz8tajUvUyBB7IFs1c+
HGWhl2Q39+cQF5Za9mVWD7Jw+uiyU5FVXKiOC9A+85mFr4cHRk8s4kL82N9H
3z6xkH2d33vWkAsQdygciFtOmXVk87lQG3uz4n0PCzfOmvsxTIULjTEyoNHN
wqrQQovEn5rwMvqq08W3LNyt9Iztn68Jw5t/by9rY2GqzqqT80Q1QS84taX+
FgvNvgZuuXVGHRz8duaqEmdEak+XOaIOEZ4xW8OqWXiD/0fEMUUdrtkF0Co3
WWjvUXDhZrg6mOnahG+4zkL9+kMesubqYP9VQk60jOzPSGPGtXdqEBqessLi
AgtdPuj9nqekBkWRyc3Vh1gY5DcmuglZ0DvLXO1oIAv762wbfl5UgXuPqGdS
AhKPlo0ps1jSIKYHpgFmLNwmserIVIcU2GT45tWZkvXMN+a3H5eCZseCLTsX
s9DA7dpZB3kpaH+hrzxiTH5fdoPhJuFp0P/e0rVrHguXvs3ZcqhbHBSGA15e
n83Cy68vbXM9KQxOrnvNlYnryy7UL3MRhuPXr1zczGdhkWvyTUN5YWDGDcbM
0WKhpM0D+449QqA5uY2Rq8nCQIHQA/b7ScHCaRkeB2gWqv7nwohPHhesZV17
s16ZhU89RUVD7g0KhEYXRdcpsVBLxy54ncmgILe1Ro5H/M79vqhtyU9BX+Ij
y08zSLz0s+wezv8hiOzvvhgoz8I5kmpFb7sGBCnXZ0SFSbPQprnp27BRt2D2
oczpLVIsHIsRS9ZV+yB4FMS+qE+cenVZ0nLpLoECW/v1D0kWjtC134/efiPI
TrKwiBRn4ajnx4AK6WcCs7UNr56KkfXEGaa9e/dE8H6h/Zb5xCb772Y+WvdY
wB1wuzAswsLEuTfYBsV1ggf335m7El/d91Up0QkFwWfWv6oUZmGtSUDDgh83
BLIx/ZEzic1ts+muzSWCq46bZGOEWMiixgdeTssWOOmMFLyconCd1tPl3hd2
C4ZFt5ubEC+vjBpM7igQZL4TepU1SWHW7plbtfIrBItvpESO/aNQbT59yNbr
tuDtIVlZT+INKo6JIXvvCXYGHymonqBQ1VdR4emnBkEd+2zH9r8UBgjb1Qqf
bxX4/9aMfDtOoVmY9N2AyTaBVNslGQHxK4dt11/NeS5w2FMJk38onBA9HTKQ
3iHoGGjO3zVK4aHpHR8X53YJhJN1BHu/UvhE7sCtMplBQefAHMd3XyjMOefy
mJM3KLjtaLDekHhgiHsrffEvwVbWgvT2fgqTXCWX2QUNCQYqBC80PlN48822
ioSGEcHTbsewWx8oXKUjuchh57gg3yLmzNd2CuPH6eKaIWGwnbj/z6GWwvx1
WUKtZjJgr6Cq/DuLQmOlWZoxvSrQ/vO7ni3x94XKk48lZ8K6tjqbk5kUei2c
EFbRmQlbj0RsNz1BoU6bYtOW8JmQo9zYvfMohY3LfTdvGp0Jo4yYsmkZFPoV
bjFaIsqA8+ovHJhJFErc6d8RK8+EoXmH0wVhFFocXLl3bIANnfuanh8OJesd
6jr7WpKGxh5RtU8hFLJnO9fmc2k4e2Lr9YxgCi/6+YcPraXBbnzNx/cBFA7H
14jGtNJwvlZLkOhH4b7wTs9/5H3M3vH2zwY3CsUrDS4qXVED40sjphSx5MSm
wJEqNdAQMUjdtJrC02Lrex/Wq8Hvihw2w5VC9fZJpt17NcidlWoX5EThEZ5L
d8EMdfjTuSpfZgWFsemNcne3qEN+2Gc3RytSH88aRYX0NECkMsaw1JJC7izv
fa7GGuA7ISmlQLy7c1HJGUsNoPbNrm41p3DMb+0q8dUacKQwiLVSQGGhrcsr
wwQN2PXxS9cKEwpxs2jI90casMbjZ9ByfQpD2+78u+ilCVXnd1ld1qNw71yX
OQs3asLMPgVKhljz27hJZZgmPN06t7lJl0L5NM2/yQmaYHssUt9Om8KGog9x
Eec0YWHr8C9bLoXLuj8leneS90nrse1LmRTWDX5i/+fIhSKGREuWKoV5GRHP
N7hxweqrotoXBoV7nlx+ttmbC1uOzqk7OIvCylNzbzqGcuH5Bx/ZV8qkfwKf
5aqlcuFEQsPpEHkKtzGNesbIeaLv9Oz7HTlSb0dWqr+6y4UGXpeFArG/45Oe
vDou/G4e67kmS/LnXzr7bysX3Ck9vUkpCuOWsRKv9nKBWXX0ziExCsu4sabq
03lQvu+8/EdRCk0sxNhXZ/DAzqd4nRExbyBjJX8mD7ZLPBB/LUzhY9b0a+3k
/HvrMr5Cc4qJq3qNvusb8CBqtuT56EkmvijfrCY3n5yHE0q/HvxjYpbF08n2
hTwQ5OmdCJ1g4plGBfK2yIOzg76dlWPk+hm+mVXLebCwPsxwGvEZqaoXPQ48
aMnaluj5h4kztWvOja/iwZT5Ma2pUSaGnrX++sGNB1lKObGriFO+OyVUePLA
8HNxU94IE+N13f6FreWBb8aDcNthJu5rNvU/60eeD9Y9x+whJjL7rgopb+TB
YaMPit9+MfGvjPbuyAAe3Hs7fv3wIBPnrZ833B/CA89SSamen0x8w7QqEgnn
wa8k5TULiZ+yV6uKRfBAU1d/6vV3JhY0xl3CLTzQ/3a404S47vL2Pu9oHiy+
OnLnxDcmtlIzL/Vt5YH1Zo8zw1+Z2GbQUro2lgeO8+/EOxG3Hpo7424cD9aM
qHmVfmFideajRqntPPC/scdUjri/kC61iOdBvKn9+MN+Jm6WlR3ZlMCD1H9X
X5EHJDT2rI0O3MmDIzVKN5P7mBjnOa92+S4S390xWR8/M9GGMyzH3M2DS0ve
xFgSF53YY/eM+Jq4udu5T0w0ehGeHJPIA3yQu/BfLxNP5XGSJZJ48ChdYuYa
4kExtTW7iNuXB49U9ZD7ve/71UMs6jIWadjNRIby4uM5e0j8vdJ+XnzPxPcV
gZoSxKb011Zx4vPdJtaXyPeXdq28ur7z//levnshsVNuRUbtOybO0lfvLyb3
X7thVjiH+LL8ihx54kCt7St2vGWirPQ/2zVkvVF9nXPevGFiydHWWYfJ/nYW
WckuIg4c1h4rJfvfG3rhy4nXTPSN9qmvJvE5ri/9aPgVE7s1nwSU7ODB+Z9h
RU7EyaITg/tIPK+Ut6WXdpDvuzn7OZN434gyCpIjvnBVIUFsG6mHhSdtQ18y
8Z91+epzJF8tfyb4Te1MDFtcMKAZw4Oe+LpPyS+YmBHYM9hP8v8DZjd8fM7E
Bv51Fd1IHowL7S+wJN6yP+KNK6mXGcnOG/49ZWJlybnigFAewIHuD1FPmNj3
KffvtvU8WLZyae3TViY+nlbyRWIdD1xmFJ03JB5cI1q/3ZsHIcc3+3x9zMTO
lEf1ah6k/s8IvVv/iIkaP8s+uK7gQZ7Phtu1TUxcmlOzWNuOByXqjac4xJ+v
NS/rXcqDuoKDnm8amTj95ciyWRY8GCymO5wayP5L9v/nN5cHXn29fRX15Pcz
w1gZejxo1CgeUyZ23lU4I0+b1FOmKfXyPhNXrzyMaeo8sN/t7r2mlol5Jk1t
luT5t+oWZ9NtZKJouiDjugzpj9FPO8nbM841ljZSliTxCI7OeX+XibWVAQ57
/3HhosuRnvW3mchuqrnh088FxYMeI3W3mCg9teAas4cLCQ/VJLSIIxYXudzt
5IILXOX33ST5tj5rWfOMCyKzm4NDbzDxKuu0zIXbXFj7V3wwqpzMGzNn66l0
8rxs9Fi4vYz0+0nRm5DEhQURxxSNiWuMz4xujOeCdK/GgrGrTEy7OWNlaDgX
qlrMY3YUk/jtWDTkuooLSrlx/5ILST03VgwdUyTreWsh9/kiE2+7ass5SHNh
YOY0ji0x/d015rswF3DfCQvpC0x00qymesnzeXh0RVJGHhNDBInRFx9rwkPb
b1KZZ5n4UHGpTFwi+Vx+7rGBM0zkPb+l2hSjCcrtUTQQl0+edvwXqgm+6yfm
9Z5iYvah8x+k3DThzw4Zr/knSbzKXq+u1taE2RXaJa1Hyfwy3lQb9lADWuLC
TDSJ5/KThd/c1oAoi7J7W48wUSrV2lu7VAPwsclL9mEmjjp3eQef0AC3Phuh
0AwyX5NGvLet04AUtr/TtHQyHzQsBI2D6jCn59LbNWmk/hh9HtYf1eFp0Tf/
q6kkf/e81PKeqwNtEr19dQqplxnuekI31KHSaU9+fhKZT44/8sy3qUNPau6o
RQITvYdyHR6Oq8GSX53ZcVuYeOSD8dmoBxzwuhhX3hHJxAVdj3U/53Mgyku5
yZhYdke5rVoiBy40LBsbiWCiUORj18+mHJA+dc0tMpzMk3DJm/VXaGhbslc5
JIjMnzefRSqT2OBz3CjDy4eJmsucar+JUxBr96TgljcTN6213kS/ZcKhqeA7
TOL9JXcGlcqZcC/o/NcOLyaOCSearVjLJGeSzHJXTzLfZEbWjJWqwrdPXZIO
rkys99mTzV/BgO0m+3ebL2eie3fSvnh3FRLvPMXDdkw8PvnccpqmCmjcqs7r
XkZ+T9dks/03ZWgU9Ncn2zJxV3Nv5OQuZZi5ZKl0szWZ/1LtNyUKlKB8hdBR
dwsmDlkVn89+PwP6/KLyNxsxUdvUc9FrM1kwy99ndH8BE/fc7sx6VyMDB3tz
G5SJ7TxjfR2sZGBhYFvfjXlMVBgPsI21loakMH29SQMy70vL07/+Nw3o2L7K
vTpMHM+3qIXZYuB6wOtBHoeJLkFWPd+nRgWsO029QsTRCY+UlIZHBN1fTcS8
aZKP9F3B8z8PC8LtVSwZbCaKzH+YH9D0S5Am01K9n0nm357RZnOpbwIHU7NX
/apkfpOt2HwYEKiEFP1eSuwqFRZvfaNPkNuUskCYwcQmOlWOv7ZHcCvdvCRa
hYmHA3vW9am9FCTeLG5+qkzqO32jo0/pU4FtP/XFgFhw//GKnTHNAjnVvVIH
lEi/HTkowkq5L3hu+4c/oEjyfb0inlatFGTH+i+1IS66UxDdfyVNsK7w+Yb8
GeR8cTC38ZkoFszusEoSJvZfMD9A/zAKvkuW5XgrMPG1uPbPkMsPBdeMOXhL
nonpw5dDvvm3CbYHHOhkEM9cY7tj4cQLwbQHQdSz6UzMNNlfrzz/vUA9ReO4
jQwTy6qE3//p6xP0VR6qyJdm4tT+4aJByy+Ckt7JNmFiHYXer6OnvwkWW7+R
uz2N1HNniPOxOYMCF7FjaYYS5PmmRypcYWREkJooHq8qTJ6XFLOmwY0pwbeE
Pr8vo6p4r6wTHYSkQZlfXb6c2HxF4NPSPGlY3LpP5MqIKjI7H0gdtpGBNI5B
buiwKo7ZCv9tPiQLGhj94dugKtK2GUsNtOVhtbCo78+vqvjyb0JQi4ki3E1i
rx3pVsW1NUUVO0tnwcE0J7epFlXMV2tSFilRh2fn3xeV5alinNOGdeL/DOCF
62wXm+2qePHPzYOTucYQp3rMa/tKVex5t3y1WJgF8Efe3dnOVcVUYUkTdxdr
OBL2McpngoFvf7d+n1Kzg/PDMvs+PGHgzqtHX+cErYQQxs/RpYUMFHp52+YG
ywksXMpvxe5ioFZwgf4dexcI7receLSTgR7huvqXXV3gWEKbGYf4Ye5Y3FFv
F+gr/HmnfgcDfyx/U+kU4QIH/+mj4nYGcoWrY/YedYHOC5frrkQzcKJezP15
hwvEj+U/7gpm4H2rIctt3q5wIWOB3ALiY4UpC076u8ITzTqH1CAGHr7g0FMa
7gpch4+teoEMvITHNJoSXOFRrvrTbRsZONAyvT33rCsw7c+2K/sysL7yhfaH
t65QdTbzva0rA0slnjnNdV4NrhoJxRddGGga/XHmM4/V8Ktgw3YJ4i9BxSJh
vqtBt3jurDonBrZMirPTw1bD2VuPHMwdyfoet4z7pq6G5I6pO0bLGXh+5gnh
5JurwUkx8LSGJQPj/btDbWe5wY/jDsG7LRh42bDQ6SXLDfarGpl0mTPw0bPd
rV4abtCgJvL8DDCwNfZVyHI9N1hkcFpG1YyBeibHL1dauYGa/ZNt8sYMzN2a
8rU8xA2+JZt4TMxh4MJcPneo0g2uZ3UG2BJHFnnmV1e7QcLlPVuP6TKw7HPE
6qgaN1Boe3J0jg4Dn32xlbrb6AbzWEEtXnwGLiqfFV742g3+6su/K9Ri4PSc
wnVTnW5QZ1n5ZZjHwO5Vov02H93ANUBY6gCXgVUeT0KKv7hBbPnJJXfUGdjv
uV+48a8bWNabO0kRW24ojb405QbSHb2+rmoMXDA9/9V2UXc49W9uwjeagWFd
M+YMSbvDXdumKjaLgZ/tchu1Vd1B7P24XsJMBqboONzNn+cOjwfPmzWpMNDR
NKVln5E7nBCzWT6TOGc5P9HPxB34OkcDS5RIfvaqnegUuINdtG5epwIDPTu/
/5CzdQfFtLYyHeLtew0HIuzc4U12DG6VZ+DKUMbrWnt3CMX77+TkGLh1/1o/
w1XucFDGi2Euw8D8GwfjBB7u4E6L8PdJk/g/zPqmvMYd1OYWGr2UYmDnxv2X
X3u5Q/nqYadN0xj4xrilzNDXHbYFZa+7JUnik1XVhuvcYUm8RYQkccGjyF5Y
7w7Pc/YfOCfOwKaL23eK+bvDmWvzTn8RY+Ct5X/fLw9wB/8HHUXGxEL95R27
At1B/3XCzSRRBvK++7jmBbnD76/cxlYRst6lQWYVwe6AU03tFLFf17yo0hB3
SFPc3BsgzMBKjci+7FB3WMWbNVwhxEDFBwaJkWHuwDS5IyJEHGDK0jMOd4f/
AXEqy0o=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{-8., 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.513604607905007*^9, {3.513605693867379*^9, 3.513605710361066*^9}, {
   3.51360613720076*^9, 3.513606193632756*^9}, {3.513606245423932*^9, 
   3.513606249700329*^9}, 3.5136166947370577`*^9}]
}, Open  ]],

Cell["\<\
For -6 <= x < -2, use rational function approximation + Newtons method\
\>", "Text",
 CellChangeTimes->{{3.513559266263825*^9, 3.513559297799584*^9}, {
   3.513598027831278*^9, 3.5135980301019783`*^9}, 3.513605297302388*^9, 
   3.513617644930274*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"EconomizedRationalApproximation", "[", 
    RowBox[{
     RowBox[{"g", "[", "x", "]"}], ",", " ", 
     RowBox[{"{", " ", 
      RowBox[{"x", ",", " ", 
       RowBox[{"{", " ", 
        RowBox[{
         RowBox[{"-", "6"}], ",", " ", 
         RowBox[{"-", "2"}]}], " ", "}"}], ",", "6", ",", " ", "2"}], " ", 
      "}"}]}], "]"}], " ", "//", " ", 
   RowBox[{
    RowBox[{"N", "[", 
     RowBox[{"#", ",", "17"}], "]"}], "&"}]}], " ", "//", " ", 
  RowBox[{
   RowBox[{"Collect", "[", 
    RowBox[{"#", ",", " ", "x"}], "]"}], "&"}]}], "\[IndentingNewLine]", 
 RowBox[{"LogPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Abs", "[", 
     RowBox[{
      RowBox[{"g", "[", "x", "]"}], " ", "-", " ", "%"}], "]"}], "/", 
    RowBox[{"Abs", "[", 
     RowBox[{"g", "[", "x", "]"}], "]"}]}], ",", " ", 
   RowBox[{"{", " ", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "6"}], ",", " ", 
     RowBox[{"-", "2"}]}], " ", "}"}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJwdzU0og3EABvA3SzKFTZYasnyErGbLWnOh3ohkpSjbNFMotlaTXG1xGMqS
XbSNKU2bGpKDJM3HwcVycDCtDVsmH6Pew2aW9/kfnn6Hp6dHNGYaGM+jKErI
BvIUZfS6+K2zVJvohiuyaxWUauPE6R+PBt7rWrTQxXnUw1FGPgm3nHcG2CAo
NMLWbGAWiuvNFli0PGiDn+qdJTizsGknvSFNvNVMHUHBTc0pzKRDMaL7Iwk3
aGEKvq4GiS9ruwz5V6my0F6eynewLgokBTD3FKmFvra5Onjy0qGEcl+YWGmj
I15W2uFJwnddJgX3k1YGXtLSqI91+68rAaU517CflW/k6WHF13wQcuOBK2hV
P3j3sGNixGqT8wKeH7uJh72hGExQ5mf4y6ebDlj7o2fN8HvCIoHFfSUy6A+L
FNDKEbdDzkhjD6xScofgPwVb2X0=
  "]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"3.29386199873748636339811749483902029568`17.", "-", 
    RowBox[{"1.65106730024911585861777247504679366859`17.", " ", 
     RowBox[{"(", 
      RowBox[{"4.`17.", "+", "x"}], ")"}]}], "+", 
    RowBox[{"0.31953133142385250253297187393126556677`17.", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"4.`17.", "+", "x"}], ")"}], "2"]}], "-", 
    RowBox[{"0.02548480375150978676189668740713616231`17.", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"4.`17.", "+", "x"}], ")"}], "3"]}], "+", 
    RowBox[{
    "0.0001333181299598300499491216295698414983144089456510343024`17.", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"4.`17.", "+", "x"}], ")"}], "4"]}], "+", 
    RowBox[{
    "0.0000151565274583715760980046351747059661727680999650056305`17.", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"4.`17.", "+", "x"}], ")"}], "5"]}], "+", 
    RowBox[{
    "9.858776425474044737140471789846348675961359676288098`17.*^-7", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"4.`17.", "+", "x"}], ")"}], "6"]}]}], ")"}], "/", 
  RowBox[{"(", 
   RowBox[{"0.81977872872246388243971600772951495628`17.", "-", 
    RowBox[{"0.2104970885945038516300080004797194048`17.", " ", 
     RowBox[{"(", 
      RowBox[{"4.`17.", "+", "x"}], ")"}]}], "+", 
    RowBox[{"0.02632273710227615691132630473746771136`17.", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"4.`17.", "+", "x"}], ")"}], "2"]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.513558014094144*^9, 3.5135580279761887`*^9}, {
   3.513558087831118*^9, 3.513558101655595*^9}, 3.513558152081161*^9, {
   3.513558460705966*^9, 3.5135584973042107`*^9}, {3.513558801422764*^9, 
   3.5135588640862303`*^9}, {3.5135589136492863`*^9, 3.51355901125252*^9}, {
   3.51355909123979*^9, 3.5135590981653843`*^9}, {3.513559328939748*^9, 
   3.5135593324346523`*^9}, {3.513559507389441*^9, 3.5135595115249166`*^9}, {
   3.513597686467108*^9, 3.513597773693398*^9}, {3.513597834299204*^9, 
   3.513597868740891*^9}, {3.513603842657591*^9, 3.51360384978137*^9}, {
   3.513603883425612*^9, 3.5136038910264063`*^9}, {3.5136048152542953`*^9, 
   3.513604838506754*^9}, {3.513604869970798*^9, 3.513604873242621*^9}, {
   3.51360566839209*^9, 3.51360567790195*^9}, {3.513607716671598*^9, 
   3.513607727352496*^9}, {3.513607953793809*^9, 3.5136079643567266`*^9}, {
   3.5136167189709587`*^9, 3.513616726939435*^9}, {3.513616775008662*^9, 
   3.51361679423685*^9}, {3.5136168357757177`*^9, 3.513616858213088*^9}, {
   3.513616972447698*^9, 3.513617074074644*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwUmnk4lG0Uxq0zlmFmzAySUCQkMZslbVKkhWgRKpUKoQhFRZElSpaiTUm0
2CpJsuTWIipLK4lWSbYsWUJ8z/dX1++amfc9z3POuc99Lk3ftsd+h5iIiEiK
hIjI//++PBUxOjmpBLwOj1fewIXLhNS2hxNKOBgqfvmQIxddXieqD/1TwpYM
dHzeyIWcTdLZv6NKuJtZwc9w4WK1xBXhwKASriVF+Gpu46L+QKlfW6cSKiWP
xY15cfFu60DHywYlFMyd3ikTxsUn3taP524pYZPlUEHgTS5ai1sE8/OU8H65
+pOSLC5+LXaK/5KjhKk2agWT2Vz8sXVYOitLCa47Z/OP5XEh7bX0VkGGEgSJ
L26H3uWCn6EbXndOCQlvELWojIsYdr+e5DElRFz9ldVRx4VgMCx4r6MSWvnO
8mL9XGhszP2tt0EJZQYTan2EaWUNbj/WKWG20aKNnwe4+HZM39bJQQkx1M3r
HgxyEc9+r2m5WgmO04dPbP/LRQdPt0bJUgm7p+eYJ4rwcMmvTr18rhLevDQL
3i7PA7V36lM5qhIkmtt5pjo8dKv4Viy5rwivYYtkzw08yEc7n/h1TxEpdw0+
CB15MBhcuuFUgSKeL9zkIL6Rh711Kt1NdxSR4Phr4KITD/3hT5T9chTxq6ue
+2YTDyNdSnvTrigidYokd7UbD2LlD9X+xSriRaBJUqIvD5r6N3+lxyjiwcJr
6rv9eLA8l1RgfVwRfo77F1nu4yFin7vN6UhFDL9tWzziz4OUjkLg7KOKKLP8
fnPXAR7kEnbUbAxURPVJ8eSdoTwob6cdKnRVxPnjasajJ3lQy83Yum+LIq4H
lb1tiuNh5rC5leFmRdjUHrEqPcUDN9ZbIctZEds/Dd87msDDqru1N1LXK6JP
xe+f4hkewsQT3h1bqYjRS1+Pe1/kofMqZ66DiSKKji1sbMkm5+3OZTOMFZHb
Nnf5pxxyXuNloy8FinC+LOz4nMsD5WXg02U8RWSd2lHedosHjT8NzmYGitC4
M8ERL+BhreX56OlaiojZ/YkXVMrDw1a1b7/pinhscCfOr5YHM6vbxQnyJF4f
1SVFdTwU3lycxJMj90t78XGynodcHzfL/TKKWG8cU336DQ8XR25em5BQhCbt
sPb7Rh6CaILdcqMcME8/TSr5zgOfv+KPXisHNxV0lpqN8XA7ufnly28c2Koz
LZ+N8zD7r3emz1cOtPynta+f4GHGw/j1+Z84sEwaNQ4R5YNp/b7I9APhyDNd
3VQ+epy3Hrau5eCEldZjRw4fN8P3U3YWcXDqzB/xS1w+Wt/XLZa/z4Hi4IJn
UXw+NPR0Dhfe48DGOsIyQMjH2frGAcpdDr5WXMhxNuMjeprZ1+u5HCTtMjy2
wYIP9/vjJb/SOSg+ZNeg5MBHhsy64YQrHIgUHP24ZB0fXzblcs3SOKB9Co3w
38CHo8TmmzGpHJwvLldsdebDek158uyzHKwxH+VOuPGh03nU1/skB0dOnVY1
PMCH24KmHM4JDs5EXH59K5iPtARue1kMBz8+B4YLDvOhbPJ9s3w0B6JDdgsd
wviQirBceSuMg73fl8z8eIKPdjXqrL79HLRIVWYYX+VDy2/LtnOBHOzfeYw6
8xofrk/vpy4O4EDlUMoelZt8NO52Zyf6kfP0aPyadouPqqJqUZ43BwcDl5w8
UcLHdfsTzf7bOLDvYPbx35PPwxK5/K3kfUt+Jh/6wEdH/tnogS0cUFgGU2qb
+TBgZfL9NpH4mTuen/rOR+GbshN7HDmYFW2VcrqPvE/8yTeDDRxY8PZv4A7y
Mcp7btKzjoOYW4tVm0f4WHD6fauXAwfV4z9frRURoHLtb3PP1SRf4RnXW+kC
tB8bTNRdRfJx5ffLTpYAMvfG2ttXcLCF0VkrqizAao7UmV3LOdBf6qTooiHA
u3ca3W6WHLC3p8c3GAnQut4+dYsZB5Lu96fvdhSAEuU4oGbKgS7v7I8rmwTQ
ub95+SdjDv4K4x/0bRPAS2n3oIuAg6fiFtlfvAUYaAhf5WRIzu+vd0clQgC2
VMzVKXNJ/jmXZprGCiA0if/bOIeD0bZNh4MTBAg+ezFzw2wOPnz5t9XrkgBi
G+/9W6vNgUJT83GLYgG0jpc4sGdysOrRwi85FQIse1Bx840mB09aerVXVAsQ
M6V2nf10Es+b39fnfhAgZ/nbbKYGB0rVn54e+ipAbVCT6Cs1ku+BA+GyHQIw
m9pybVU5aN6TeGdyTACuTLc4fSoHmqUXx30khVhrNrCxdgrJj1XadD5diLPn
JyVXKXEwpsdb16QpRPFzSReaIgcPAl6/em4gRPOobP4LNgclddM0Dc2E0HBW
3myjwEFW8e3cY/ZC3L+qdL2HwcGjrVa+ea5CrO5S7E2kc2Aic4WbtkeIH3xF
U2N5DhYti6L7hQpx6DAn7CONg9lf9K8tiheCVcl+ESpL7p+mvdUgXYgseTZb
S4b0S0aV7o57QizewNpUJcVB6+k3/crPhWi8rHDNi8pBXuBng9gvQuxpZ/5m
UMj97FBVZ/wVgmLENLknwcFK2/srOWxjpAYxjm4UJ7zv9ua5XGPwH9Gf/xPl
gB4vXaK/1hgvZOisdBGiLzVcvXkHjbHNQd5l2SQbo/JFN2fdNMbfC3KZHf/Y
eBb4rqDnizHiW2k9ceNs7A9cwKLpmGDWHJoxb4wNfu+dKI8YEzwMkD3S8JeN
C3P6n26ebYp1D2WqD46woVlbv9HLdB66KDIKGsNsuP+1HLE+YIpwW2nnJ4Ns
XH5tt18z3wQqZ6Uy3P+w8Xj7qPlMSxPc+ULtpg2wISl/Maho2BjWulThnT42
CnVTd84qM8ZnX0roul4Sj5OW+d2Txggslqz628PGw29xBe92GENOXJJ5qZsN
c+NJ1YNLjJGxQsLJoosNjv922zUzjTHvtPjVtg424g2DXvrKGON1s1hXzC82
inYqV5v2C+E+U0wwt52NJf27fhg1CzHpLRrypo2NTBE7TDwTIrlQ5Nn+H2zI
vX5o7kTypT85SVdtZSP656cVchlCPLaadMQ3Nh55HNXoTBLCKX7iittXNoYC
5IdrjwnR1/ivQ+oLG/NGQtUvBAoRPf0fL/cTGynFYlJCDyEK88eeDn5kI8Lu
oFeknRCrxkblzzexMT2Ob6KyVIjWJaMbFnxgwzIk38WE1KfCu5Ffke/J/e+X
6fsxUwif4UE55VdsHM73/E4TE0Jy0eD60jqSjwPyy7v/CnAx+s9l11o2TD6r
Gyj3C/B8yoDRzRdsfJ6bsmPedwG0zXvXmVWSzx+vyVtZJUDZsd+XPj0hz9tu
Yc96JMDamp6fYY/Jfd9zfSxVKkDY5u6gF2BjtarG58DbAnw60pHqUsLGouwt
IroXBHC+liKqXMzGydGQeUeTBWh8YbnjTREboi2pNwaJXrxWvKxvU8iGXUFj
lcFxAZ7mOJQY32FjxPbys2cHBLB4LaI+cIvcz1hMeJu/AA+Hc8Py8tg4Ry/a
oeIrQJGFlM3MHDY2uJfdeuhB9KKxtFHhOqkntW/x7c4C6E54mNdmsuGlTS27
RPTvmqZS2vEMNg5khHnuWCdAmo/vLpF0NqSGnmycYStAkoT2UPdFUp9NvRzb
JUTPDE+xqhPZEI+46qBlIMDwOvP9xxLY2Hc+5FrBbAH8D/5qWhjPRvKjs2J2
ugL4VC5JLzzJxjrPzD/XtATY6jJimBHNxretL6/WTSX3czTz9JYoNu6NPdTL
nyKA03X7EZVINgz7rVUuKZH77c8pTwhn48+Mt7sTiN5bR29dHRrCxp2L6vO+
ypL7yZXPNzvMRuvtcAMZGXI/b0o4QwfZyB/KsJonJYC5mmKLVxAb5YNnVt6T
EMCw4PluJ38SX7TGTMkJPpS+8I4LPNlwqzNQGCPzae3QddthdzZccryaL/Xy
kUhTVXywi42sTU2vrH/zQTOVuGq+g40Hq5//yOviQyTxbekSVzYyfrVdqfjJ
x/wb1uGSW9h49c8q/XQbH8EPS5c/28TGlo93hd4/+BjsyHhv48xGWrdFtwGZ
jx1LAnrXrCf5sSn82v+Jj1lOvwpZ69iYZPFF+lqIH9i76fA7Bzb2LF9s8YfM
188Xl8psXEPq3+MFXeYjH28HOVquK9movZ692beB+CFaTMf0FWzMln/tlkLm
9eoZE7e/L2dDeW6G4aN3fFSvbpu/y4qNHysoDO23fDy8XrjBx4KN+/zC4pmv
+Bgr01MzXEzqQ8BV9q3nw+Ttpda+hWxsDLGfRB0fd0WifAPms4FlA/o+tXz0
Ko4ZG5uz0ecstv9FDZn/c/ZMjJix0djkOXUO4RsbN8QeMmEj5yov/t8LPn7s
ebFmgTEbDr8tlnkRnhG5UFlESPr38o4Vn5/zcTF/VmY4j42mgB8ar6v5SJAd
eRhjwEa1edWhjmd81E73ilg5hw0V1RTRg4RpJl9WyOuzMeu8UxadcKRbVWOC
Lhttymdcllby8TjY/LKDDnn/jX1r2p6SfCXc3sGZxYbBQh3XWMLBZWf7z2qx
YV03O+PrEz7uv6E9cNJkI9yF9j6R8J9fR0JVZxC9TF4lZU2YKzK49JMGGy9S
jlmKEt6j6EFLU2fjUltjyMPHfOTot7zeqkbqkfL2TijhDos15zSnsfGlLqzV
krDbHlPt6ypEbylnZn98xIfipWufV01hQ8L54r4bhKtess79USL99qTQKZhw
8NgR+wuKbIQ9z+mxIzxHr0fWgsPG4NnSqfqEvzg6P21nEX06r9otSzgxqirk
lAIbwRKjW3sr+LAsFJgImeR9yht3fSA81Jre10xnY/sae/ozwjdYjOxwedJP
vZfsHhB2sjjspidHzrM23ug2YZpvx7RXsmw4qvnmZBMuv7yhYb8MGzvSn5f8
z361T+LVpEm8cq+9/v++1j8jm6dUNl7+iC/+/3nvZ18W96KwwYqYl/r/+6Kd
aGUKkqQ+9p+a0kTY7HhQ4ANxNg6KHzDqI9x1v22uqxgbsW/8BmjkPJfaHH5R
RNkYztJYMofwGk5Feu4kC7KdPxfYE5awNHBZO8FCpr1by0HChX4XOGPjLBx2
yFPLIux+RaruyhgLeuenibcQVqkPiLYeZYFC3RbHJvl4OfFt8e8RFl7YpT+3
Ixw6x27szDALnx8/z08gzHUpKzAfYsH7U+yaBsKtMXo+3/+w0EybcnE6yX/y
g5RZMQMsVL4Tu76XsHW7xFfDfhaalCZ2PSGcu/SzQ8hvFlLlnATBpN5c/VfK
zexhoX5Ea3EzYYWrDypfdLHwR2zG9CWkXgNFTptO6WDBL3qfizqpZ525ogPl
7Sy4ijY+Ok344yafnJ0/WVApspWjV/GxqMRavaCVBaO8s2sUSL/0/7rX6PSd
fN4Ru+MC4QxlzUTRbyyc4wcf0CX9JR34T8L2MwtPPly6uZb032vD/I5fH1hI
nlip3k769dgW9Yz4Rha65g61nyP9LYw7scm4gQWtw32/7Ej/X+jcWX/sLQvH
Dzu8qyX64HZtaqF6HQsndUd1ZImeKL6L3lNZw4LonaQ/PwlXiQ/peL9kQeOv
hs1zoj9zttZfKK5mIf68YutloldDUyOOrnvCQt7GgzrxRM/iZqWtYz1mIalr
6+doonfavBLdVxUsFCUHvY4kerjBpu/VynIWPLbeTU38zEfRgU0zLItZeBj3
U7WT6KndsQNDog9YMIm9qEonett+Kul5+X0WHN91PTMheqx8vdpv3j0WehbN
WpfazkfQO8Fj7m0W3B4t3JbbTfLx1S6lN4+FDSuTE0WI3md17d6dl8tCvsds
UScyD5rE01l62aT+fmZ8Uh8g9cuVd5t+jYUZcpvH/5L9ZTyuTYJxkZzP6bbT
P0kBTp8X/VBznoXNLUnLyqkC6F9TzY09x4LhJ2PGcWkBNpXZr6OmsGDfv/Mu
X47M886HmRMJLLR78Ix62QKsH/4QVBrPwqGfxrV/FAXoERtcFXyKhSkrVu8T
I/NSXWX20OAJFm7c6tprOk2AI9Ypy7qjSH2d7nk6VVsA5bX5KtmRLDht+Hfb
W0eA21tqetwjWNi9+Cj/uZ4AXwPFU1rDyO9zp7+6OpfMz8w9Pz8eZiGsZnnc
F1MBxMWso5/vY4EeeNgBdgIwtF1svf1YKPZ42K++VgA1m72KDF8WLJePDyRs
EMAk8WzGOh8WRhWsZG5tJvN/xi98cWfhx4Ub7z6T/engsn9R4btYuMUI2Pud
+JVoT6at9k4WVnd+rJwIEOBqvmnL7u2k3hOnzjwSQvyRRczfoU2kvy66NFTF
C/Bj5yWcc2HhwqCCV+YZAfpj8qPMnUn+ejTmpp8XQO5NEyfMkYV93P26YpkC
qAz3NGttYMHi/MbD7llkv5sqnvFsHQvV9NR5g7fIebfP5so5sHD7e2rG8RIB
bKMW/r21hoXzBhbOZ8g+5pLtAHs7FuxEJT/XPRNg/8DB1WdXsYg/7Zj38S3x
V+EvPTWtSX5Wtz5M6xPgwfUvRpXLWHCPV18fSPxl5Ys/I+5LWfCatn5NsqgQ
X1nTovIsWGS+FL9+riBEj7HR6jWLWShgjjl1ThVi3Hkp589CFi4FZ1b4EP+q
mOF91XQ+C7tqMz89NBVCs+qoZ/M80o+pvQqXLYUw7DpjFGrGQmDLTLY08ccr
+A/LnxizMM/HUSPfXQhHx9eRu4Qs3E20v65A/PXOQ22rZAQsaCcf71hE/PeR
J/LNtlzy+9w7JnuvCnGyfcbVfkMWIh4bSN4tEOI8zdjzzFwWLl8TH7Yhfv+G
4QojEwMWDgwFHPL5KMS9tVtGmvTJ/VW27t3eJ8SjA/vKD88m+vPgNTtc2hj1
F6MiNfSIXkTNubREyxgtuLDqsQ4LV31DnZZaGKOj9RZ75ywWQhgWuzzdjDEi
9eSjlDbp73d3jCZijSE5pzE9W4vk81xWplSJMRTWdHms1mQhQGBuOvjHGBoB
IkZ904nesD1PWi0ywZxz7JEkDRYiDzB7B7NNYFamUy5UZ6HqSdq6IE9TWH81
j/wwjQXewfu1xunzsE5yzapDqixMm+arZ2xsihkq+vtnTmXh1+XQLQuTTNBr
QL1SO4WFCuGLI/VzyX635Nvz/cosCOyEjXrtxjjhWPZHQ4kFieQyN/ZtYzh5
n1V7zmGhYfeA5uBRY8wK22e9j82C8gh3/1MnY/xJXu2nyiLz5Zho3W0TYzzK
1r34lEn6KXmZX5QK2S8hUenDIPnYZRO/f1KITe8+/1ais/DP/ZFhV5sQeh3F
UyrkWLD6OVgdUC/EyMSZJZ40Flqo8/+VlwhRyfL1Zsmy8GaLkH/8hhBJOitT
SqXJ/YX0TFxMFsLAXqxTnsqCga1mlhiph/GdLewiSRbWaM2eydklRPXBogVb
JVj4uXhdUq+jEG6ZPol3RVmInnbf5e4CIbjFy0tdRMj5TyTrBXOFEKnTapOc
VEDNdTPFKm0hLow0mTqOKyBo6+K6lwyyP8oVbhcdU8Cwz7ZfeylCCGcknMz6
qwD1rKT+gHGy76yw+jo+pACbtKiJqF8CSF2+G32lTwH/ZI79MiL99v5uXL5N
rwJ0/Hj988uJPlR5NA/0KGB/ZpZB+H0BFvSrGy7rUoDa0WMjOTfI/rH0RENH
mwLyTlzezTtJ+ttpl+jpHwrIr/c0L4sUgL7HYvb8VgUMVnn88DoiQNbZkZBT
XxWAWYukjMk+9bXTTZvfrIDqoynJqzYJkCeyyK6lSQGPz9ye10z07RBnanDk
BwU0hfxqiLAn+rrwVU3jewXc23Wte6a1AKsT5wccfqUAq1cS14/wBSg2UXxS
WakAw7WKp8cZRA/1LktFPVXAVa0LBdOJ3k9X1Vll9USB+Cnm5bVkHkRPmr5/
VqGAQ1+N9nwTJfpfuam9qlQBql61qafJvOl3yKS9yFcA9azCAdYHPq4tNVgT
e0cB+tpdw71kvm40vn9mxW0FzH2T3Nrwmg+oVKu9zFVAx6cA44qXZL5+7TKs
uaGAdb+1T46DD709/HV1lxRQ5RLR15fFxyfXsnOnUhXw1+PNvTU3iP+2X/bJ
9iK5P88tTkWZfIwIHHfVn1NAiGVs57k0PirHDwa9Oq2A0rexrOxkPrbFPE59
E6MA2pHDOT3hxC9k2rc1BJL4N6Uu2rmNjye33k47HKCA+o0hV1e4Er/3YP26
Gf4KiN9urSLczMeCWqcnXr4KKLryZXyKE/G3Q9vSRb0UQFnAqJ9qT/yl9b7N
s7cqIMniQ/moBR8r7QfP1G8h8S9ePl1vMR8BLvtrAjYroE2pNW/TQhLf3oPm
cFbAlfaEaa/m8eFxLlxl3XoFrM+iM9r5fOR1JL0PWaGA2s7Ds2tmEb/6hyOv
ZaMAaZ/yRWbafExOpCyttlbALL/Ij1laxF+wLhawling7LRNJ5Onk3zMy0i8
sUgBD+e97UueyofxyYLVrwWk/g/PMBAwyP3PfVc5U0MBM3MS3R+M8VCrKDnl
mxr5/XoXhUujPLT84+++NE0BtoG0aRF/eRh9cZquNJV8/5DlKqdhHvjuax2l
FBWgLfE0Q2OAhxtpb351yCrgunb6cpVOHgqjxM2vyyjg06yX+zU7eHjqw4vb
Lk3q//n1twa/ePhmnsRtppD+KqsVXfmTB9UP9gdrRBVgIeUjmfadh3jma9rt
YSZafc/b5DTzcGlEdIvXEBPd/FKZho885H42uqMzyMTGtDX14oSf5yasu9LP
hPvl9c7bP/AgYbPmUmI3E25TQ9aavefhQFj93IDvTHxv4nUtrech0kMkzOgb
E6uzOsXj63g4Y2f4tvsLE15z3og11/KQrxZ/YOcnJmpGArODanjoKrat2PCB
ieEi14MvnvOwdaDW3qyOCd+l/1qfPeWhtX845WMNEw7n/1I0Cbv3a7QcesnE
7TPqVkee8LC3z29XeTUTv587ay9+zEPIb8VDlk+YiBy3mtUMHsR+L6z48YgJ
ebFUTWvCET3ulKgKJmb0UwWF5Tyc6C6Or37IxN+nqQlnH/JwvnNz5uoHTLy2
xNTAUh7UOqM6ft8n8UU0pveX8HCl4/bchEImrvtVGPsSvvFLrPjNXSbC6A4h
/sU83P95rdYxj4lNg5ERSUU8vP3eM7ztKhMupWp3uPd4cPyuNF8inYlzvNtX
6wp4+PhtUVhmGhPjyrfP+xD+9jWR1p7KxHPH0uj8uzz0fhZO9z5L8jHFeqd9
Pg/+n7fslE9h4n1r5KbJOzwMf4rOvnWGiZ6KufZ5hCdamgT9iUy0359tpkBY
rjnEZv9JJsq+pPf23SL5/3j9lPIJJsL7v73PI8z+WP/2QQwT0iVseBNWbZqx
ZTyKidhbR6L68nhI+7AiIzWSicULTroXEtb84P9rQQQT7xJOWx8mrNdYue9o
GBNOYfbiTMJ5Db+LZhxlgn1L/EtLLg9GDcoTj0OZONr1sTiHsMl7z2jKYSZO
2O/fY0e49F1SzfWDTOj4/LOaSXjhu1KF5cFMWBo7aY7n8LDsrXxq7H4mGjfv
/3CLcMyTCUteIBMpK76sO0m4tqCnq8mf/D6g5JEXYYXMT6fD9jEhMhKjtprw
+jO15np+TLzct8DTiPD5iIetr/YyMXJie5Yi4U8BeSeC9jAxEXaz4V82DzN2
XuJP92Hi7kHFv22Ed6yPa67yYmL3Zj7tNeEby0KO7d1N8q1+kl1OuEvoo6/s
ycSLu/HyeYQNZ21+W+7ORHT3YpHLhP2VVh/atYuJ5a1PvycQLqIu0KLvZKKg
vPpRJOHx4TkvC92Y2BpzOuEw4UXt0/w3b2ci1XyVSyDhY41yqpRtTNhfbNLw
JVxV9e9xrivpDzHXT96EaQ+6d6/bwsTXIZ9kL8J2N1tY/zYx8eQLw+r/z0+f
qynJcGFis/i9oT2EG4+XbV/pzMSV6Yev+hNWDc6V/bORxFf4d9VBwq6eqXcv
ODKhpjH7bzjhq04nnZdsYKLwxfqrcYTbbA6Ld65j4pJZld0FwnrzvLMT1zKx
yLpl8iZhn9mbHMwcmNA4mpxfTDh/6qqxr2uY2GXF96ohPCQ7/+pxO1IvJyh6
3wibjeuvMLJl4ueSmr4Rwo+aaReOrGSClnX0kj7JD6Vm3EJnBRMH6DuPLSds
U9bVUbeciX0Lt+53J/w69aWZuhXp18jS+BzCinGl3yqXkv5/+aXgFWGnkJwY
H0smXi1e2jlC+OvmE01li8n5aD6XV5F607I9FLZjERMRI3oqBwm7L/TSk1vI
xI4NkvlZhHvVVwa7mDNR8YIiZJD6FvkqqzImZGJ91c/KP4QtX41VpAuYuLPH
2IpH+ie6otPDhs/EfctHv/cRZqS/eHDOiImbbeefj/3/99ftsRtN9Em91J97
OZP0p5vDQdEvekzEXGt5F0D4xpLdN6N0mXijXaZcRdhQa8Xf99pMcC0kXPaR
/l/4Q+ZcwHTSn+nyU38QfXDPv+HM12Ai2PfAxUVEPxJDl6kNqDFhbLxkxiXC
bVPCru5VJfrwdvWiLUR/4lb/zd2txIShoYfsaCGpx6kpe/UUiR5HXu3YcZ/o
Tzuf94vNhLA49csbwoLwvUU7FZhITJaYVkj0rPn+z0db5ch5ax9qniZ6R4mI
iNCgMaEaUiXNJHpoaK9p/VmGCddXT1TjCYd3ba5xkWJidGTBu9NET/Wmv2/Y
IM7EA/+00SKit0ExT7pW/WXg3uvVAz5Ev9M3bLtFG2HAJGXFYgbR95daIn4v
hhjw+XLtz13CGuXzhq3/MBDV6JIqVkn6YSBf1PI3A1MSXXaVVZH8b7qiaPaD
gYwrWtU5ZN4s0lv4YeQ7Axe7L4cEknnkOdx84f43BnJmPvpuQeZVWYLydMEX
Bv5R5tR+f0XyUXlqtuFHBj5P/qhb9o6Hu3NDFmm/YmB20d7iZDIv7Tmcoeo6
BhbmHJlytYXUx2h2tnct+X7CM8W7n3gwqPygeO8FA1pvTsh8+sJDlouge0kl
A1uv9HW7/iDnO951bmsJA0dGYko0f/OweE+4rWQxAz/V2m/49PLwZa2K5M0i
BlTWdbeW9ZH5o2G9t/ceAzdmj3t6/OHhXOHVZaG3GWAY61sNEf8Q/91p4GIm
A0GSXTZ/JPmYW913Y1EGAxdiQwtjqHzU5kVvbk1nYHdX1hZtaT5owYXVs9MY
2GxErfem8RHFUEgrPs+AeXKm/UIWHyHzq1c2nmIgtGjUTWQGH9M0XcUOxTGg
8Lhm/qAmH6VSw/fVTzJgbNBS1zuTj9E3Wpq7YhiYt/zelXFd4sc8j/wdPEbu
c07nTk8uH14pxtdYweR+RJx2lFny0bfxUGDtAQZehdFsJKz4CFStWHZ8PwNu
1rkMh+V8hF6x+Tnhz8Cao50TUqv5SMzepNOxh4FK7fxXTRv4UPJJH8nwYcDl
yq0TO4hfvGj4s2qLNwPCWvPEvy7EH9/b6/HOkwHnFY2rFhD/+aA8PAs7yHlT
DmQt8iZ+M6wq+KAbA0ldNZVT9/LxyFJuhXA7AwMdlnJi+/h4WZ3cme3KgP1v
Cdm+A8SPvrmpn+LMQGHuY82tEXxQ2uvyvNcwkH1muVwD8cOxWexQHTsGzrR9
vRubwQfDe6Pt99UMSAVfD/rfT0/p//bbcSWp5y/FoQq3+dAfHzS0tGLg1JwI
64PEj995aCY6uZR8P93Zp/oJH8Kjoa8eWDKgNOxRPqeaj0UUab+5FgzM1FsY
aE78vQND9a7KfAba1E55xP7go/G1a/i7eQzUye1syOjgw+VMpkO8GQNpT2P2
Nv/mY6fK3D+SJgx42ShFZ4/yEaxlIejjMlAWa+Q4wBRgsi1SMseIAf9QCVUd
ZQGO3XzxbqchA89kH22NVhPgpMG6wOY5pH4XhLa8nS1Amon7/Wc6DOBHsFEH
2X9+dO7riJ7FAP+a/+glOwH0LodOs9FmwENt7c4zjgIUSKaEv9RkoCpjkdJG
DwH+FqUXnpzBwLQ3MYsN/cg+55X3a/V0Bngz35tuOihA9euntq/UGAhYsXbj
mzgB5CNfhSVOI/1i7dU/+5wAa01b7jmoMpC7LPTQ36sCfLr8Z+r7KQws2mqf
rVYigKaDiG2KMgNmpW1T4sk+6U6hhTkqMVDwO3VH1lsB+r0025vYpB5Njcq0
+wQw1pg79SKLAdddN3SKRIQ49MZs9SYFBmbY3WE7MIWoiFx2VI3JwK0lZVdU
NYWgmNkXfKYz0K19MtZCKMSK7k0/0+RJ/HOXVv+zESI+zUNlmxwDgRBOTd4q
xHuHgFWaNAZazFOWewQLMZV69EirDAMfe//Z9Z8RwrX4xN1MaQZ6dyhuayoQ
4pr32badUgwoWxisZTQK0amRMUWHysD8iLHgIRFjGL69tfKXJAPsB93RpUbG
CIgqCc2SIHq2/9WaGT7GKDZ7lr9bnAFDkVtG+8qMMdn9+oe+GAOqWpX1ekYm
sLzySblHhIHkJBH34zKmULj5NmXzJB3tpr/nb1A3w0V6178v43T8+/xBojTC
BNqB4m7bR+nYvvNDys7fxrjTrPL8xzAdHYGP8kwTjGG+hGvoPkjH4JrkF4Er
jVF5c3lyRz8dRpvb3JcoGsOOsXXcq5cOL7V9A+G/hGgKPLDtdzcdQSajN3c+
FsKt5VSVbycdQhWPOl66ED1Lrhv8aafjVmzYyPNjQhzIeng6sI0OtYh/SW6e
Qogz34+OfKdDLiF3ta+9EHH7u10PfqVjr9jB+ZHmQih/knj27xMddZ15pWt0
hNDP5iWJNdFRe9fxqIqEEIXMFX+PNdBxfPHGupIBARYd2LaF+o4OWR8P1/Wt
AqxbmjCbVk/HUILzPtkqAb5k30iIq6HDsXxLyGixAJ4KGGa8oONmtA4/Jk+A
kM89jzmVdPDk20PsUwSQWkbRO/uYDjdkzN13QoDEnGnxKhV0TJ7OYUqECXAt
aKWLeikdT6uPJq31EaCOlfVHJ58OkchG3z82Alhm310UcIuOrY8NJEmrosii
7ERFDh3vA2kGl0xJ//nWazldp6NIXLNxi64AfnVDa2Mv0lFjNWNZrqwAbTtF
rjSco+P346KSRxICOE9Id2um0LFk+te3lAk+LOdMiyhNoIPLL2lk9vGhGLvk
XnckHYVl2XVjjXzEzFglanaMjsViV96sekP24QfrV0UepePMEefW8ho+2ts9
fqgdooNhbvZj4hHR12XxHDtfOiT6boRW5RH9EWsJyHem48L2nxHFMXzUn2ur
mHCk4/kcRWpSJB9LjXrlVqyn40r/iqOHw/gwcBW/9t2ODiu5MqvIYPK+Mt33
7GV0vPqm7L5xNx/pQYHC/YZ0TOkdunHTlsTLPBL2eA4dbyOdnnmtJPp743gt
fTapt8CNSfPI/PBvuLjzxkw6rGPttMcsyPsEj5M/qJD63uKiPiYk8ffSh+dJ
0rElu+RhjQYfOhYBBwrF6FDtj0tyUePDPanpr6EIyZ8LJ6ef7Pe/BJnjM8fk
MVwjrctX4qMj2EyM0ScPjSdpNGl5Prokdsi1NstD+8DaF9/GedBf/zxuc5M8
UvX6bjaSfd/r+lzGhwZ5BE6ydN+O8NC9fFSh9rU8bGY+ffiRzPOeuFPKRVXy
UKef1pvdTfyEcrHmiQJ5TDhY3CwhfsLQUz2Tki8P/ilXXXHiN/aWHNM+ekse
iffOz7cl+3nfJlvdwCx5XPrg+PNPAw/96a0GrmnyaHHxa/EnfuaPPt2Mf0Ie
uXm7hs3J/swP8S/JOy6PuQnGnc+I3/Kv+2CuGyWPMz2bi9Y/4mHQN2OhWpg8
qj6bVYSS/Xio0HSp1AF5hF3Ni5h4QPbNRW52zdvlUWihdeM68bMzHpfc19gq
jwU1t6XtiR9euZSlvmOzPFbmJW4UIf45bfmj7m5HeVSuHrzunkX8u71G7OQq
eXw0mKK9K5OHS9ubn84wkcd1r2mmnIvEz/3gzdklkEfyg/2KY+d5GNgVezqb
Kw9akKNv6zkerL3MtvPnyOPmGfPYihRyfv+zIstmyOPb04jKjCTixyPXzvOg
yYPzUnVI5gTZR6Ry0nOlSXwrqJu0Y4l/ihGX6afIoyzfdMQy5v/7z28MFpWH
zMTl+7HRPKSkMAJPDMnBmmc3uCCC7CNT3FvqB+SQvaX91L5jZN+7UG7J6ZPD
m4Y7C7PDib9M82Fd6pRD/5KGj5phPHTceHn71hc5dPl63zQNJfv1bC3lPy1y
qNnSlRsZQvx77sFQk49yuDK+5O77w2Q/u6O3uuKdHEazHIpDD/Ewvzi68/Vz
OZh+sT48GET83QtL7aECORRUXl7gE8DDvLl6Dlb5chhW2vahy5/4+0T6kbO3
5HDtyOyFPoTNnZo+mGXJgXaA4R60j0f6dc/J0MtyMCh30Ljjy0PSynXF9Rfl
sLtqdHIp4QW3zX5OPy8Hju2rjJa9JJ79koufnJaDT27vPA7hRZQLf6Ri5PAh
TO5Kpg8PnR5HpjtFyeHdxIxMO8LJNTtWZx+Tg5usp9eEN7mf04Y3VoXKwTfV
aOk2wikjnHeXDsmhtu7uRmXCFi5jor1BcpgMC+K+8uLhrGalc6K/HGYKl3NX
EF4SlR393VcOjJslG2mEezri7/H3yCFGZ9K6fjfJLxGXBg85ZM23OuhK+Ddn
sbnOLjlUZWs+0id8PkjbI8hNDiyJvldjnqSfFvU9mrpFDgMtPavSCV/IeP/b
y4XEpyVTFkR4mVSp6sONJB6bt38dCPftvrKcvkEOsnf0pIwIX6yLDHRdS74v
U/aNQdiK53X1zho55CZoxg14kH5LXlMvZkvyL7+W9oFw6qjwn8NKEs+F+s0V
hK03q+plLpfDvPSgYzmEBypENwwtk0OHWcnR84QvzfwZbmUph0bK8g2xhJcf
f3n77GI5fIuYJhVK+E/XnZZfC+QgFb89MYDwZbsUmXnmclhfEjDmQ9im4JDx
CVM5lBYOWe4mPKi0za1FSOpPMnaPJ+G0g1YJBnzyvpXZIV6EV3zWfxhqJIfZ
x5T8fAkPWSh01hvI4Uh/0uogwleuDSvN0JdDrGsa+xjhlTItlvt05aCerlaV
QHjY+5HvE205OBft2p1OOP3V9UscLTks0G+YvEd4leDki53T5RAf+SDmJeGR
s34j99XkELZtXLaN8NXxDTOlVeVQEfAhQozc52rX+fZOU+Rw/JLs5HTCfx/P
CM1WlAN7V3GgJeGMWVI54yw5PKU+6vcgbBvb3biKKQfRb/L7EgmP9ryWvCwv
h8OBbybKCNsVpm5ZLC2H1HOiC9VIPTx786kCFDkkVORtsCW8oE9da5GEHKp/
NqiFE9bXT29fMEkD84fby37CV5d/t3k4ToMmU/m+Aak/lV1aufNHadgav3ez
N2Fq+jVf80EaFk56D/QTDin/+aakn4YHce9/mpL6/tOsI5zXSwNCV2SGE/6m
lD1q2knDMd3kU+qkXx6evBVu/JUGiq7SyaA9ZL/O7v1R+ImGHucPixoI51QZ
WQubaRhJW/PJmPTfOfECmqCBhhjK3k5R0q/+QUVnuDU01JxdXv3Aj/Rj8t/h
O89paJYps5tL+n1bgZmTURUNliHzfl4nbPe7VM3wMQ33JQ87pRN9mL2j4vqc
BzQ4six/lwaS/IWJyeQW0nBGdvepFft5UE5b4qVfQIP0pl+7WwhTPj41nH2L
fD79ypAM0aNvds8f6GTSkHhUUTTuIA8bfWRVb6STz9c8MDcm+lUfuzJkVhoN
6bXTu78TLqustdC+QMP4/cPlVkT/zpq/eaGZQIN6zEEFs6M80J3YBlfjaLhn
ubZoknDk/nXxM07QMC1DkllN9NQ/v2Ht9Cjyvhnmf3cS/bXVaW5RO0zDSemT
ufVRJD72j99TPGhwNtZ3cjvFw65tyibbd5L79X79OzSezJPbK47kbKfh5fuU
y2kJPMSsymcs3EwDu2plSh+ZF/JRoUZuDjT8He0sfXOWhz3v8oNy7WhYEWfF
UCHzp16zrWJoFQ12l07K7rzAQyJW2h+3Ju/7w1hJv8SD4uiUfXnzaSiYqml1
8yoP+61XlQyb0XC3/eRsdTLfGpOPiC82oUHxQuGuC9eIPvF+Jr3h0uBZbGdx
/SbZ770LCkZm0fA6ZfMh+m0etL+sJi1Jw5p5A3HzHvIQZRC24ASdhheVIdpa
IHp+6F7kOxqp1xsWVA6Z11lTVJXcqTQYq+81ZlTyYODwy/jkuCyObH6v4FvL
w6krqkfe/5XFqnxeeFo90cPftlXqw7KI0w+/+uE1D/knCh3z+2Tx7MmbIg/i
H4SV4UENbbK4n3ToEPUr0W/2/QqNVln8tJ0MivlO+nlbh7TnV1nozW4TndLG
Q/Gk3fnxj7IQaa2r2NhJ+stUrWT6K1kkT9l+yG+I6GtO0fjuElmElZd729L5
2FdgFfy9SBb5Zmd+HVDgI630/bBToSxm/ei6f4fDx+jLP/3L78iiSNdsloMq
H7ndhr9mXZdFzV7en216fDQNlu+8nCGL1bcbHrMNyD4+sbpVMV0W392D1ZqM
+HCV9/4smSqLb2seS6Wb8sGee/Pd90RZbI8LXD/Pho/FxiYOzvGy2L2+9GHq
aj58Fj6rf31SFmpXpSVUHPh4ZvvjRUW0LNJF5pi7uZB9ee/0R5dDZNHcpz6+
ZS8f1w/cXqh0SBYjIRUH7wTw8fbIwrK4IFlk3awVm3WQ+NmETUWH/cn7VqQr
RRC/+/XOuTxnT1l8WJu2fellPuSLdfTf7JJFiczByz2ZfJg9un/TZgc5777a
6pocPk6/fpdh6ipL8jzzt1kJHxVNbjPubJKFy8dx1Xrit3u+DVzWcZbFCYOl
r24+58N6gHlBab0sZledCZ//kY+AsTTlUw6yMAtPNRBrJf5Z3DCZskYWins2
12t08zHGWp0wuEIW1i6mT6NFBNBRbZH3Xi6LLRW6+CZD9mstrxOty2QhsWv7
siKOAHn8mKg3i2VhvqZZX3KOAB/Np0iuWCiLxZyiW2fJPiK19EbYI3MS/8ny
k1+WCSBYZSxiZiYLh2m31vStFWDbusrDd4xlcalKecr37QKc2rRuTEcgi3Jl
3tnX+wQo3dF6II0rC+ORe4e+HROAEyjmf2oOeb5S0bhitgAWIQl9lNmy2PFg
zp87EMAnUmNPiI4sZp6Wur+tUYALcbe6BmeSeppflnq2X4Cq5AWe3pqy8Dad
jP1FF2LwUs3PVg1Z/DgwYjPLSIgZ1112uKiR/Pw0VQ3fIITtrc5vb6bKonqb
k9Ibsm8euh/sumKKLAb3i+2eUSqE3pWUq3WKspD8nl4dIGqMhpiCNge2LG42
5KaabDXGMf9Xuo1MWXR93HIue9wY3M09Xi50WaToXkx8VGuKL1ayt7/QSH3n
fz9Vt8UEJ410BtxkZDGueyaTSfZns6lLhb+opB7zv1l0qBujXWJbkLckqTdX
hylHXwmR3BNS2idG7rNtxaodZ4RY0nhhMkBEFv9MTvqlugnRW1FkMfpPBhkn
XcVi5wlxKftdRMiYDNTLxdTpykKsPNNfJfZXBuOLq3vrRgT4G0KnRQ3J4LM0
ndnaTPZRd31b2T8yoJuduJv5mOTffnniqT4ZaHVOpF7IEUDMfOc71m8ZyPjE
KHuS/fbWzHDls10yMG/lyz4PF8CFnuas2iEDG5Vv9uG+Asj8Lb2U9lMGpwP9
f7u7kv3124evWj9k8JHROGW9nQA7Xg5p3fwmg4Mxbuv1FwuAy4bZd1pkMEd7
ehp3Jsnv8VU9go8y8Gm7/9ZMWYCp+zyNihtlIH7o2sqPZL8NXJZx/9EbGbwW
DAXe/sPH7G6lJ2+qZTAtZcquuBd8NL7nUx2fySCN2lbz//+XjMQam+YnMhja
JD6i8oCPL0mx9a3lMvjecGPa6+t8JJtNNg/ek4Hr7sVjgmiyH2upagTflUH9
pPq2xiN89MmZbp+4LYMd+4bbsoP4WPnV7xclRwazp8XZNpP9VCy6bVApndxv
2hbuLHs+bvuKm168LAO7fQttOGQ/3eSscUgjVQb6Uj8faS3jo8jASUz3LLmv
Xcst0s2I/ryrkTeLI8938jcd1CL6NuPeLJdgGeguqRFTn+DBb/4Tu6z9MlAT
b1FZ9JcHacc3QSP+MpBdHtgcSPZHk5N9L07vkYEKkxU7g+hvyvCcvTVuMhD5
yvJz/cDD2pfXihbYymDP/fn0iSLiz9vufT2xUgbWjh80+Pd4CBd9KvNxuQwi
aHrX998h80D43WW/Jcm3rtXjmWRfY15RF71tKgOl7bpb/9/PagPOLp+uJYN5
/I35kmQ+74y/7rdnOnmexqryXjLf/2UVXihTk8G9vANqP4g/0P/ytnvjFBks
+GBJ/0X2l1gbZmKivAx6ud++OxK/Zq0e0yT+VxpZupvz7q3loaLq4O62GmnY
BoQuiDTgQSu1rXrbC2lkrJ9ldlCfh2jfNTqfq6Rx+dzoH3894h9VZv1oeCwN
Bx1p70BtHpp3v95c/UAaXxruvLylRuaVvK59TqY0WnS9L/XSeXD5nnRb56o0
/t6+qTJbnofy+xPymWnSuPh6Y5QHjfgP17cvUi9IY+ZQj2S/FNnf8kOXnkqQ
hgU986ChGNnH17038TssjZDMlTLOg1yc1l2c0hMsjR5O4XDdABfD/7IHPQ9I
oyTTfIl1PxcPrx3N375PGk2OWq8tfnOxckRff52HNOIfOopv+cWF+4VwdZN1
0nC56ZE95xMXl78aUib0pTHd32LaaDWX5OukjaWeNB7Nn6dyr4oLs66OuJhZ
0pDp2TBn3zMu3g9lKCnNkMZN587wkSdc0GhTdA2VpLFqLM95Frg4IBRduU1U
GocZl7yY97monLc5/saEFDJHloaM3eOCtbjkbc+YFDjxK53aC7jIWxGw6eCQ
FM6/Nt36PJ+LH66/fE53SoEy9N70Vh4X9rGvEirfSeEw5+LHkWtcpMUbvKe9
kYJ2tcdzOcLdZ2JVHOql8Ljdz3pmJhfRaUuvfn4uhWXXLH85X+Wi/N6DgpFy
KUj57HX7eZlL6uNKg16WFKbEvC33P8dF8I+Jqb7XpZBkucnuzlkunnU4u97P
kMLvgswlvSlcbBvk/FpyWQpXWrqtA5K5OCcTM+pyWgrntvmdvJDEBUXgN+1U
iBR6Fi8X2xDHhcYfvRTxQ1J4cCFC6fFJLkzvfmccCCLxv9g73Yiwl9E6ia3+
UqjR8WKyTnDxeo5JJ9dTCmdfbZ7Tc5zcf1ev2/VdUji0ROKxB2HJnJufpu6Q
wnLbn4t+RnNhojf1tYSrFNgrgvp/RnGRqj1R9H6dFNZnfRMRieSi8Echd4WD
FK7pedyLieCiPmNPTrmdFLTySpcpERbT/Hr5xgopWO15PyY4RupB/Ulk8GIp
jOdsiDoexgVfOWat2hwphB6eHIwK5WJ1g0Vtop4UZrF1muYS3pU8ZkXVkULE
vdiIDyFcnGd7z+udIYUDC+wMuIRFmHYzHilLYcuS2VdGDnGhUi91UagohaDV
Ial5hHmnKjjZLJKPk8brdxLeKceTPi0vBeWG2WNNB7l4Ka3Yu0NCCk6um381
BnPRVlXr0SQqhcVdJ29eJDwZFfV99SQVL74FT9tGmEv5+954lPA2A8X+IFLv
T+/Y5QxT4XrK7Fwp4R3HPJ9rDFJx/uK+6mjCZ8Way6R7qVA+H6OvTTi/4rRx
SDcVq/zdXYYPcPHiyKo7/R1U+B4s4z8nPDHxMOPjDypCcmTf+RNWerhfze47
FVNK319YSdjwsOHZJ1+o2LR2o4Q24e1jV2JzP1JxL5db2LKf/P5C+3ODD1R0
z/hwpZTwWfO5MrffU5F89PyUVMIvD5dG57+iwpTbcmMb4Z1q4lW8OirY+z6V
WhEWKV9OvfeSChfjyA0GhPkiDRH3n1FxJrlFRYRwbdq0pyZPqZCpEl/UGUjy
udhNovgRFZ5u1LYGwmLfspbMAxV9BXzZSsIXw/rCSstIvGmfcu8RFmqaPJpf
QoXoSdWX1wjXPw4RLS+iYoldvNs5wp5uTxctKqTilq5W4EnCEpK0IxV3qTjt
aD4RRvhSpn25xR0qcgPqxoIImyw7N/E4j4qiSZa3H+HXbZ/nL82homOehJ0X
Ya8o7cOVN6nQyrlxdRdhio53qdV1KoYiJtzcCKdV3R2ryqBCtys1aRthM49R
M5t0KsZ64vT/53fSi4NfXKYiXD3PYDvhvVlRD1amEhazS9lBWGZF7UjNeXK/
p513eBDO6GSb2J6l4q3RULIP4QUnnPfXn6Fit0y4bgDhRv30wjVJVEwz2zf1
MGG/mvbB1/FU/NkR4BlJmOYzV7A2joqMnhB2AuFr8oH+72Kp2BJ2XCmV8KJb
pXfXH6eiUSTJN4twk634QEMkFalbUjUeEPbvXc7deIyK6ANbp1cTlk+I9206
SsWo8oBfE+EbRg23nUOp0Pi4VqGbsMXrab3Nh0i8EnXj/+c3kJXt83k/FU6T
2jn6hBkFfbmuAVR4LFXfbUk4a61J91c/KurmLPHaRPjTmae7W72p+GuRrpu0
/389pmXv2E3FyYy3X24RVmiw72hzp6KmYUNdDWEr5S/uv7ZTYXi7Ypkcqd9v
Rdo3PLdSETBv93MDwoc2ev/s3Eziq3YLXkP49vnRHT0bSf235K85T1h5Gmf7
gC0VkRHDsab/91OZc7r/KhJP53EVt//7cXP610EbKgSHNpacInzk8lzXkaVU
zH84PKuDcPt0m03/5pH8Wr+1yib97DUQFmZtSoXtwwjXb4R7n5RcTxJScU6i
75wK0Ye/u+b06xpR4XfCcmMcYZk8RtR6bSqSwvoCwoie6Js13L7FoGI888i0
s0SPbssy3o/Kkfo4InbxE2F+i/XYUlkqHCzufpxJ9Gz+keKlzZJUfHgcfbTw
f72rTG2SGqNg0Vnf1M9HuNhj7yax7QcF4Z6JOjbhXPzRTNXN/UbB3ZkzVc8R
PjD4bvXIZwrp76Or2wkfOWt1Lq6JglOfQ22iiL7Gf9IzKKmjIO7NqfBKor/5
nn0b2MUUzLAbL15E9Fxornd4y30K9nvGlccRLpbbnp5VQEGFDXtdM+HHt992
LbpFQc2DIxMBZB68Hbp/1DuDgjnZot+vxHAxFBaSXRlHQbtxaXcdmSfL5FmU
RScoxG+8204j8yb53HXXB8cpMAm0KrQiLLxdz8k5RkHos2clxYQj5+3YOzOM
gjORA2v7Cb+v/Pv8UigFl9J3JeuQeRbYMuNIQjAF7hILPsYTrnS/3yRzgILy
VwVPHhFW/LNCcCyAgpxtsuoDhAtlAjoC95Lnx3v3rz5F+jtZemmvNwVPaYWr
ggmvn37pssduCpZ5zvt2lfCw8bO1Ljsp2F5/JKSPsPVj51vvtlNwVV3SnRNP
9HJ1r7TtVgqCjcNtjQm3fzjmVrWZgjpmq/YGwiY7ppQvdqEgaFrzJ3/C0b25
U0o2UtDp4O0eT7jxoIU/fwMFvz+IFNwkrENtqM1dS8FXD7F8ED6QuFt3lj0F
hnlf7d8RrpomcizNloL083lRPwkr3zz9acoqCvrMfywaJuzO1zVNsqHghtJ0
H4kELorKy5Jo1hSoKaRPyhOWWmHfE7GU1EPEjh+KhB3ft1lPWlBwq4LBUCV8
Y+vBqwcWUeCnWrpHjfBIF32ibz4Fd8ZkBqYRtj6Q4bh7HgX2T0tiVQifFTe9
22pCQfwHax024fa4GrnNQgrmXz1QJEPYRGWbewOPgrOWT/Qn/j9/5tAjOyMK
NGzf+vf8f37D2GnPDSjYta0+9OP/5y9VP7BEn4K3fvwFTwkHWRW8LtWl4Ppf
zuVsws9fW88RzqIgd/hbYhxhlc0tUbe0KPBpt5D2Iez5y/ebzgwK5u6c27uc
cLE/ZX66OgW+lkvmzSAsI3IhZeo0cn6BZcMQyadT7Nz+0yoUnCs7VPCM8OgV
x+tRHAoWyH0Z3ETYZk63qCiLAjNDTVNNwueLjroEMyhIDWwJaSX1ZFaXxfSW
Je+jXH/lRDjGaaFXmxQFi1WCQSfc9ONN5RYKBSMOrX4g9Rs8Pn7QXpSCE1N5
7WzCz6MS3r+YkMSxXsGJItIfKixto6XjkvA1fV60gXCxrm2b8bAkcgJM9kbH
cjG2/ordtG5J7K+oqL9D+k3I0klw7fivwaqPpvqM4w/u43QyL7vtrEaTlznD
74dcKk6pDaeZu+O6hISLheKWLmkTh0iRl3sqN9nM6912JnLPjFKNzsc4q2vK
5A4n90iOtAw7tJsdU/b8+TnP9zwv3+/zeaFoE3dvcWJYMaQZ/vY5RX3Eq/pK
xs+ZT7rDXKcprq1EfxDL8pitIEB1/AnF+a4kk1ssjx2EduRHPUVi78un5gwP
+owd2DVGURrTnPgD0wdTQ1xVjo4i9Klodo7px0ftM3/0DFM8E+wVOTN8w2U5
MnCQQurvO3+xkPmttXm0tJeCV6TVCZmejY+qvr5yl8Ll6glzxzym7yrrx2M/
UwSHDs7xTA9LzJxjZDcpftH1PuCZnirW/OPkrRTi3ccS9KeYf9zS1mmaKfSd
8fKuLPaerNDJpe8psm0kmvKTIkQvxMVnN1J82lv2cFsG86fJ7MTzVRRdFbzr
Kznzh5r1pvuV7PypoGs1aYz/kcXTZpfYemZUmE+qCNyQ6nBlGevP+Qan+BQR
3oEmueEMhWDGXhiTwPJd00zq7VQK9cEeoVU4y88yectaCkXN/R2GICn7P9bL
c/uSKAq1wVG5EhGGKtflv8ooqre0/TYoZvwrsk4fCadYNhW3OAaKUJocmrng
R3Gn20Z33UuEQJPkbL/dbH+fY4NKT5bHGk/nK30o0mxrI1M9mD/r1WVuXhSr
fRKZFSdCQrhBfdyZIqjc1dzOgc3/45qRBSFFnvumHRGWrD9bZ7wXnwvw4qa3
xVezntir+3Jl8bIAYcJd6tIKT8zdUI7kLZngSF/5fMnEdmx75MEXB5jg0FE/
r1Wn7RAnYsKmyRhH0n39JTYeqA/VLk4bGcN56E+Lc1buyM2R5TtGGKHCtsPF
3tINIZunk5Y6CIS+/ub/+fLI/Dynwb6dYKNl93u5O3lUtwkfSzUETy48E7wW
8ZgKCJD81ExQK1WfMuVZveI735N1BGcH4js9bHlUaVMsDMUEr92k4gljHvrc
v7r+jSawM/0i+coDDuRe0bJzFEFBMVVKBjg4Cbe6RR8gCLlUcOGtexzSmz9T
3w4hCD8TtFoODuu6toqcAIJ2h/G+xg4ODu6KxDWeoNCkRWtfw2H/6Q21vCvB
2w/zrFevcpD3N47Gfkggu96/R6fi0HloWNxjT2BkCDIolay+RLQz/11231G5
9+ZCDmmPBhSaTQQeGWMWb/I4XHz/cOukFUH1iz13ZnM4jHeo7PaZEbz8e6Wo
J4vD2hsu5sQGgv1n/dWtGRzsgvurGiiBoufc5W/SOQRWxf4+ZEwQNn9XqpRz
SJ36ZyMhBPrI1emCoxz+ByDstB4=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{-5.999999918367347, -27.633664054675318`},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& )},
  FrameTicks->{{{{-27.631021115928547`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "12"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm]}, {-25.328436022934504`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "11"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm]}, {-23.025850929940457`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "10"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm]}, {-20.72326583694641, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "9"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm]}, {-18.420680743952367`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "8"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm]}, {-16.11809565095832, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "7"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm]}, {-13.815510557964274`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm]}, {-26.937873935368604`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-26.53240882726044, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-26.244726754808656`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-26.021583203494448`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-25.839261646700493`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-25.685110966873236`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-25.551579574248713`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-25.43379653859233, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-24.635288842374557`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-24.229823734266393`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-23.942141661814613`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-23.7189981105004, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-23.536676553706446`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-23.38252587387919, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-23.248994481254666`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-23.131211445598282`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-22.33270374938051, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-21.927238641272346`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-21.639556568820566`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-21.416413017506358`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-21.234091460712403`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-21.079940780885142`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-20.94640938826062, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-20.82862635260424, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-20.030118656386467`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-19.624653548278303`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-19.33697147582652, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-19.11382792451231, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-18.931506367718356`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-18.7773556878911, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-18.643824295266576`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-18.526041259610192`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-17.72753356339242, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-17.322068455284256`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-17.034386382832476`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.811242831518264`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.62892127472431, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.474770594897052`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.34123920227253, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.223456166616145`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-15.424948470398375`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-15.01948336229021, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.73180128983843, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.508657738524219`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.326336181730264`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.172185501903007`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.038654109278484`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-13.9208710736221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{-27.631021115928547`, 
       FormBox["\"\"", TraditionalForm]}, {-25.328436022934504`, 
       FormBox["\"\"", TraditionalForm]}, {-23.025850929940457`, 
       FormBox["\"\"", TraditionalForm]}, {-20.72326583694641, 
       FormBox["\"\"", TraditionalForm]}, {-18.420680743952367`, 
       FormBox["\"\"", TraditionalForm]}, {-16.11809565095832, 
       FormBox["\"\"", TraditionalForm]}, {-13.815510557964274`, 
       FormBox["\"\"", TraditionalForm]}, {-26.937873935368604`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-26.53240882726044, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-26.244726754808656`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-26.021583203494448`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-25.839261646700493`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-25.685110966873236`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-25.551579574248713`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-25.43379653859233, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-24.635288842374557`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-24.229823734266393`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-23.942141661814613`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-23.7189981105004, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-23.536676553706446`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-23.38252587387919, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-23.248994481254666`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-23.131211445598282`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-22.33270374938051, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-21.927238641272346`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-21.639556568820566`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-21.416413017506358`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-21.234091460712403`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-21.079940780885142`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-20.94640938826062, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-20.82862635260424, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-20.030118656386467`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-19.624653548278303`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-19.33697147582652, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-19.11382792451231, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-18.931506367718356`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-18.7773556878911, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-18.643824295266576`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-18.526041259610192`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-17.72753356339242, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-17.322068455284256`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-17.034386382832476`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.811242831518264`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.62892127472431, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.474770594897052`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.34123920227253, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.223456166616145`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-15.424948470398375`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-15.01948336229021, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.73180128983843, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.508657738524219`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.326336181730264`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.172185501903007`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.038654109278484`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-13.9208710736221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}, {Automatic, Automatic}},
  GridLines->{None, None},
  Method->{},
  PlotRange->{{-5.999999918367347, -2.000000081632653}, \
{-27.633664054675318`, -13.70410832696819}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{Automatic, {{-27.631021115928547`, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "12"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {-25.328436022934504`, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "11"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {-23.025850929940457`, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "10"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {-20.72326583694641, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "9"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {-18.420680743952367`, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "8"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {-16.11809565095832, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "7"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {-13.815510557964274`, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {-26.937873935368604`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-26.53240882726044, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-26.244726754808656`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-26.021583203494448`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-25.839261646700493`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-25.685110966873236`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-25.551579574248713`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-25.43379653859233, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-24.635288842374557`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-24.229823734266393`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-23.942141661814613`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-23.7189981105004, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-23.536676553706446`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-23.38252587387919, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-23.248994481254666`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-23.131211445598282`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-22.33270374938051, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-21.927238641272346`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-21.639556568820566`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-21.416413017506358`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-21.234091460712403`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-21.079940780885142`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-20.94640938826062, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-20.82862635260424, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-20.030118656386467`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-19.624653548278303`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-19.33697147582652, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-19.11382792451231, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-18.931506367718356`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-18.7773556878911, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-18.643824295266576`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-18.526041259610192`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-17.72753356339242, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-17.322068455284256`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-17.034386382832476`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-16.811242831518264`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-16.62892127472431, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-16.474770594897052`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-16.34123920227253, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-16.223456166616145`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-15.424948470398375`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-15.01948336229021, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-14.73180128983843, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-14.508657738524219`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-14.326336181730264`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-14.172185501903007`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-14.038654109278484`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-13.9208710736221, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}}]], "Output",
 CellChangeTimes->{{3.513558014094144*^9, 3.5135580279761887`*^9}, {
   3.513558087831118*^9, 3.513558101655595*^9}, 3.513558152081161*^9, {
   3.513558460705966*^9, 3.5135584973042107`*^9}, {3.513558801422764*^9, 
   3.5135588640862303`*^9}, {3.5135589136492863`*^9, 3.51355901125252*^9}, {
   3.51355909123979*^9, 3.5135590981653843`*^9}, {3.513559328939748*^9, 
   3.5135593324346523`*^9}, {3.513559507389441*^9, 3.5135595115249166`*^9}, {
   3.513597686467108*^9, 3.513597773693398*^9}, {3.513597834299204*^9, 
   3.513597868740891*^9}, {3.513603842657591*^9, 3.51360384978137*^9}, {
   3.513603883425612*^9, 3.5136038910264063`*^9}, {3.5136048152542953`*^9, 
   3.513604838506754*^9}, {3.513604869970798*^9, 3.513604873242621*^9}, {
   3.51360566839209*^9, 3.51360567790195*^9}, {3.513607716671598*^9, 
   3.513607727352496*^9}, {3.513607953793809*^9, 3.5136079643567266`*^9}, {
   3.5136167189709587`*^9, 3.513616726939435*^9}, {3.513616775008662*^9, 
   3.51361679423685*^9}, {3.5136168357757177`*^9, 3.513616858213088*^9}, {
   3.513616972447698*^9, 3.513617074217134*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"EconomizedRationalApproximation", "[", 
    RowBox[{
     RowBox[{"g", "[", "x", "]"}], ",", " ", 
     RowBox[{"{", " ", 
      RowBox[{"x", ",", " ", 
       RowBox[{"{", " ", 
        RowBox[{
         RowBox[{"-", "2"}], ",", " ", "0"}], " ", "}"}], ",", "6", ",", " ", 
       "2"}], " ", "}"}]}], "]"}], " ", "//", " ", 
   RowBox[{
    RowBox[{"N", "[", 
     RowBox[{"#", ",", "17"}], "]"}], "&"}]}], " ", "//", " ", 
  RowBox[{
   RowBox[{"Collect", "[", 
    RowBox[{"#", ",", " ", "x"}], "]"}], "&"}]}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Abs", "[", 
     RowBox[{
      RowBox[{"g", "[", "x", "]"}], " ", "-", " ", "%"}], "]"}], "/", 
    RowBox[{"Abs", "[", 
     RowBox[{"g", "[", "x", "]"}], "]"}]}], ",", " ", 
   RowBox[{"{", " ", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "2"}], ",", " ", "0"}], " ", "}"}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJwdzU0og3EABvA3klDYZNQky0eR1WxZ4yDqjZKslMM+aqY2xdZqkqstDkNZ
sou2MaVpU0NykJbmI7lYDg621sa2TD5GvQczy/v8D0+/w9PTI5g0jemKKIri
s4EcWQ29IXwdqFanh+Cq5FoOxeoUcebbo4IPmk41dBVHtXCCkU7Bbee9Abbx
yoywKx+Yg8JWswVWrIzb4IdydxnOLm7ZSW/4Id6ppo8h77bpDOZ+wgmi+z0D
N2l+Fr6shYjJ9T2G/MvleWivzZY4WJd4olJYeIo1Q1/3fAs8Tfb3QqkvQmyw
0TEvK+3wZOCbJpeFBxkrAy9pcdzHuvM3mIbigkvhZ+UaOVpY/7kQguWpwBW0
Kh+9+9gxCWKjyXkBz0/cxKPhcAKmKfMz/OXS7Yeso/FgB/zSW0SwcqRKAv0R
gQzqo8E+WNdjUMAbo04J/wEvjtxP
  "]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"1.3870842152670159068232543707160161893`17.", "-", 
    RowBox[{"0.84315650114928865061937015868500829497`17.", " ", 
     RowBox[{"(", 
      RowBox[{"1.`17.", "+", "x"}], ")"}]}], "+", 
    RowBox[{"0.15440546182117503467781567846035301467`17.", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1.`17.", "+", "x"}], ")"}], "2"]}], "-", 
    RowBox[{"0.04547462412747369620573571248778253543`17.", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1.`17.", "+", "x"}], ")"}], "3"]}], "+", 
    RowBox[{
    "0.0027610311594243719235270201993857825680416959960152133428`17.", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1.`17.", "+", "x"}], ")"}], "4"]}], "+", 
    RowBox[{
    "0.0000794650276153496293933949749944674308210991544801564568`17.", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1.`17.", "+", "x"}], ")"}], "5"]}], "-", 
    RowBox[{
    "0.0000203294909941440379168009298203308640034389798747285675`17.", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1.`17.", "+", "x"}], ")"}], "6"]}]}], ")"}], "/", 
  RowBox[{"(", 
   RowBox[{"1.08496103636269678673099543810317236518`17.", "+", 
    RowBox[{"0.0042921144767478142403653845501341664`17.", " ", 
     RowBox[{"(", 
      RowBox[{"1.`17.", "+", "x"}], ")"}]}], "+", 
    RowBox[{"0.06685447748784245415952740510313659999`17.", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1.`17.", "+", "x"}], ")"}], "2"]}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.5136168864009542`*^9, {3.513617103434561*^9, 3.5136171088878593`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVV3k81O8Tl6uUJMl9JUe5S0nl+YSQFOErIXLLkaMclaLSgSJEJTqQm5CI
RCNJucqR+1y3da1daw92/fb31+c1r+eZ97xnnpnPzOxx8bd0Z2djYzPkYGP7
//el9DbyxsYGRP+y0nh8xBirXN9Zf5uxATrNzp0GisZYb59IIo2+Aem2kX0r
QsaYWJLCARJ5A2KGejsOr57CXm/R952a24Ddz20P6JWdwtKWb0y29GxAl7rX
mXy1U1j+j6muV8Ub8LQieUZCygirvlz3WdNxA/juJRirLZ/EvPFc5NESJqjH
1skVpWKYbqndyPkiJjwvu650KxTDhEOLG5sKmLA1Zl7ggi2G1fPYvi3LZgLe
a323jjCGSe0vPBX1mgnLWwUHviUirPOyZYp6FBOWthkP/IzTwXQm354Id2RC
+bhWNyQdw3aMHnkszseEwgdi2216tTCPaLFjb7ax8A5UJdtUa2HfDjJmpXiY
MCN/scc3TQu78rDutCwnE3ZYnznR7amF/VYy5dlPZ4CyjeCBdPphLCLYJUpr
igEN13pUlWQPY+StsY8svjGgLdfT0PaeJna2zF+r8ysDIMT1EZenJpbpYDll
9YUBvJdiGn+ZaWKWJcJGNmUMGO1v0H0qoYkVnc/gcsxngGfaUXm5Lwcxz7SK
B1deMCCtWCrjxuoBbODwWESkHwNs4x3Mcfc0MAn+CpFOHwZUFA9q+HlpYJfw
T4qkvBiQJFb3cbeFBjb69nB/uSsDIldVqz7JaGBTm6MPTNgwIDk3BWwj1DFC
n/qo7kkGfJeb4pHnU8O4w8MQXZgB0WHGBA1TZczYxrLTcDcDCvaO1g7LKmPR
BxW9EgQY4L2JeqOWqoTxTrcl7dvOgKNnm4qks5SwneZy89bsDNhBEhYxZVPC
JGSbUz7Nr4OhkYqIVe0+7ECDCPXK93UgrY2EP/dQwDC70z+mvq2D3ZlkdR5D
Bezs4s2nTtXrEDb23DN3rwLmITQgZ1WxDt6RXo6eOHksxeONxfEP6zB/btV3
/pI8xrlZtoDn1TqAi7fairMc1nNK+VJ2wDqcXl984RYpi00MXNwv47cOz29N
ZYn4yGJE/5iVVz7rkPaL4Us2k8V4kxcex3qsw5teppeisCymO1NcEWS/Doo3
B7b55u3B8qMO7TxpvA5Cq73PPLpksLBGVD8ivQ4rYebC75KksKCnTsF7Jddh
zy+Pkg5nKezKf/cVLoutw84A3VUHdSnMbuh31KLgOliJx7ldb5bEtJf/M2Xw
sPx11nhXvFkSI4p4d4utrEF6GSomxIlj+KGYyEvLa/AiWd3Zz0Ucw2UUa2cs
roEkSf8nOiyOtamQU/bPrkEUp493+4AY9kH3rqP28Bqca8T4fqiIYZ6eL2bO
/14DDiW7uw+HRDBH1S+vXv1cg0h2GfH1MhHMmjhgMlS3BkFDTTy1MSKY4e09
H9xq1mAw/kCIChLBZOMLrwaWrgHT7w0lIV0YG6qoo8e/XoOqu1bOejeEMMvN
S7wtAWvw89NEz4idINb04d19Cb81aFY8ETN6XBDTtzKnX/FZg9MKtlkykoLY
wfSP09s91oBXTuGR4+guTOB4UN25i2vw4FKVeIvXLqzdj3a903ANBgiSneJR
Apjx7vzFvSfXQP/0xTjiFQGs9qude5DuGtSQG4Q5LQWwki3VlruPr4F1d/RY
l4QAFp8RrnpBg+X/h6YupfKdmHk3x3i/GMvf5WsO5wn82O/bZbbKImvQ8H3o
VUkvP6a7173t1m6WzI6i9b7zYxoBDTUS/GsgICMty57Ij/FvjU6+xLUGrgmH
lKja/Fgb4jMbW6LD2GJF+KjEDuxclsiX2Xo6dA/uu/u5ihd7xiXv7llHBzWK
0QzhFS/W7X5g5zTQof0HjRxykxe7pGDiNVFFB6H1k0JuR3kxv5xboiMldGg7
fl66onobFpM3fPPfa5Z+y6eNpratWBvPnPx/KXRQaFl//6hsKyboTWlvf0kH
RqBr+sPkrViqEr/S32d0eM5AAWbOW7H8Ar3+xiiWTPYvpZJ5sN8fMo9BEB24
ZDzijZV5MF6+j1PoGh2afsjt3LKLBzP3q3lW7U+H8v5aKc61LViPWjf+izcd
0pcj/Uuat2BTxZtTy5zooOtaV9TgvwXjKvVeyztLh+KglP4HdZsx/c8a1Uly
dJgqMqyWjuPGAk6pmw3tocOZB5Yh225zY297VUflpengMR/zW8WLG6PTlTgr
ROmQx62twWfAjZWekD/bx0eHr5KfHXXXubA9jaKDkjQa0D1Mr44Hc2FmdiJ+
Hqs0yK6X9J9z58JuzwmxFZNoEJQ6nCRjzYX1bheU012kQV9EptTOI1xYvCXf
FZdxGlxvTZmg0TkxtkH29exWGoTe/eYa9pgTU/Pd9HSpiQbD1bzyEmGcmD1z
Q1r7Nw0a0pX24Pw5sUoZxsnGOhoQzJ7U9pznxALcKU/mKmjgvpg64buXExtd
nBPXyKAB7cJ2elc9Bwabuo5/CaHBm/NSjnaSHFjlWXUOjSAa8IbF5V8U5MBK
X0Y3ZV+lQaKme/HVbRxYtipmm3SFBrIlwb49NHbsqW1OiL8LDZ5wOXve62HH
7D/e/ChvRgPFM680uF+wY1QnKcVn8jQwkDGqS5Zkxw7WXhbw+UcF7sfp4fFG
m7DC+XPvFtupYPV3hx2muwlTFNVWufaXCr9qzSUWj27CJK5tMbrZRIXByFPc
FqqbMC65vJuRtVS4V/24VVJwE9YbiR99X0iFsDqT5FwcG3bnnG/x4AMqSAUE
75G5xYbRb53XcYqgwpucfxbJQWxYUC5qHL9DhSKeT67b/Ngwz0184/hQKgjw
XXkz7sSGWX4qEqIFUAF8hcWsjNgwBWFC2G4HKpT/cqPw87NhLcPXzpodpsKi
wRWXteMbSEPHFFIPUkGuwlVgUnkDPX+leHBWnWWvbEdUpfgGumQ1KPxAiQru
X/8TllhjIkKj4fgXaSoksu/gbq9kot3lIqHyW6nw407Z5xJ1Jrr05FvO+jAF
KqzcfyTyMFDdTLKYySAFDvmYPtBbXUeKRoGxL/soMP76/uf2sXVEYNsXePAf
BYhPsyJSvq6jiJAEzLORAkeOWCV+91lHOc5uXZ2fKJB2VzvBvGENEY5s5SiI
ooDsT7aNh650JHNOt0DhEQUSTIqLOk3pyMIj5L+M+xRo5jizyqFNR6VJY+9f
hVOAtpj0dwcvHQUuVxlEBVGg7si/oV+lNLSa7/PI3YkCHEuB0b/pVMSQbOWR
0aYAY2Pw5FAQBW3ljOd/Pr0KV7V7Q2oEVpDc2cq3/ROrYP7XwfsaiYROJI2q
yIytQqqkBfeWfyQUJHfgdMHgKnCnnRHuSiKhYYOOe9/bV0E3WiyPLkhCnx4K
kha+rsLWYPHTsTuIyH7zqy6j+FW42KwfgBtaQkVbM1Ko2qvweFNcg8mPKXT6
kM2iidYqkIUzrHhuTqEJBz79N5qr0It5b8pVm0LiH0Nn9dRW4YnsbxT8ahJF
XfhP+8le1vls/fdrvhPIOZOzW5JvFXJ2NY9f3jGGBLHLO0+OkyGEiP1pCOtH
xZcl3Z+PkoG51l19ZKwPmSR0Vk4PkeFpYYbXLaM+dHfihFNMLxlMClNwqXy9
aOGxSHFXKxn40zVW9N90oYaexrOelWSoHDZxky5vQ86b7qZVlZPB/okB7qNw
G1pX0lrh/USGEpyugPXKH6QZnpH68QMZjlR//tUf1oLS5G7h6RlkeJmQFRcR
9wvdvKoSFRtLhuR5Yo7mpa9o1ArbyfeEDF1OP3FW/F+QsbZ5ytMoMrgIRHyI
q/uMhDYCC+Puk8GqvIs5qlCKwsYeHua/x+LTPJKdWFqMJn6+/BYfTgZ9f+eW
A8IFqDTma1vCTTLkbr3ksQWXjkQDWm0FrpNh4KK6dkFMCrr738jYsyAybIsL
ND5wIQFNay377LpGhtaeBKcxg7vITIyDnOhPBlzAbHDCTgtUzhAMF/Qlw/Fx
3sjGqAdIAqew+bk3y5+ei8rS1xMRPsdE9IU7GbBACcWR+Qxk8cQ+Q8iVDBbL
tk/oD3JQpZ+f8ksnMgTMD0a6SxSiR4efoeSLrPgOiUoNZZYi2R99zikWZNhZ
Hh4d+ecrshv2zH+LyHA+DG/avvkX+v49VFP6OBkyRAPmcUq/0b6smOp32mTI
P3G5p8S0Ea36lPxJ0ySD+jlNk+hnzegZjULM2E+Gkei8SUfeNtQkGHk8ZzcZ
esSy+Dif/EPHzmS1FC+swMSPo1ERLkPoiWPecTp+BfYL+Jm204bQYOCHfIOZ
FUjdNTXVEz+M7rwuj+obW4F2k1EZfM0Iql/4acDRuwI6NSSO/VtxyDR+qtq6
bgWqDujzOduMI6cuxQ+MFyvwbA+b4de/0+jjrLKEcdIKfGd7d8J59wxiZ6o/
eZawAubyi5YtdjMoU0HbSzFmBbSrC3oXJ2bQ7HVjeYt7KxBO+NDvtDqLrol5
vcn0WYGLZSfXPLbPo4eO+bFndFfg/fNvhUscBJShuvVgPVqB4YOPYiJkCKh2
zatb5/gKOLXtrF3RISD6y/3SalorsIl2eiUgmID82nJL+FVWoNA6ybRtgoCs
9XI6u4RXYOiKeDa5ehkp7M0UdVoiAbsMc8LBgoROLnN8650nQe+eE4l2XiTk
BK4uFngSbOFPIajeI6GUi3sL9CdJcOeUTN6lEhLiS8rQkR8gwfTCYko37wpa
5Ux3xDeQ4ON+kQ1qzQpqmHqTFfSWBKZD3MIzG2TUOrmkXpFKAv8T4t3Cgqvo
34ReFS2ZBG2Jkv4C+1bR+Njkn/BEEmw9eb/E+9wqYhtRpUZFkcCAecrzaeoq
OtpTY/LmGgm8+gOPPNlPQbrdO7pG/Elw0uWs07ljFGTc5ewo60uCsdNPLw+Z
UJB1J1dQzmUSbE47omjqQ0HX/pq++WhPgtXWY7yP8iio8NfQ0k8jErj9bMlT
FqeiTw3qoVsMSBDcGtpqu4+Kqn7e4zyjR4KGJ1XsrD6Dfv+QF207TgK+igf8
0WZUNAm++v0aJBCjWYZphVPR/DdokVAjwecse/7YaCpaqdl5wVGZBLzHX6vk
JVERe3W5z4Q8CUJnjJ6q5lORVCUjaVGMBBO+0oEeHVQkX3FO+oAICVQsRlYH
B6hI5XN6XuBuEpyq51URnaSi42WG36g7SGCu78rRv0pF+p9eGh/fTgK7I2Pi
DhtUZFI62xG2lQROPGuW2ZtpyKYkdpqdiwSqknlwT5iGHItHrhqyk4Cu4yW1
S5qGPIoOrEduEIF78UGXhwINBRV28W+nE+GSutMjm0M0lJAreUx4iQjqUeq3
bExpSCSaEe0xT4Q7+q8uTVrSUJrXUF/5LBGkau0ktWxoqETpzU2rCSIoCHCa
y7nQkPa2sMb3OCLEcZJrfnjQUO2cvShpmAimMlF28j401FYo8SWhjwg3B/LH
Dwey+Maub8F1E2Flk5/LZAgNjfoO2mj8I0JJTf9u61Aa8jSrzr3TToRoGf+B
mDAaWlJ7Tf3zhwifrbyORt2loZAdt42lWojwW/hGudF9GmIuXUz2bSRCuKEs
9vshDT1qOz5T3UAE10RG0o4oGuL7KK7NW0+ERiK9S/QxDb1IWIu8+J0ISrvj
l6ae0JDUtYGe/G9EGJ2TOnYjloayLb8q0r8SoevqzczWpzSkqpl6/fQXIshZ
mHtOxdGQzoqd8MwnIuSMX+t2TaChs+ViFY+KiHCcZ75vgSXbh/Rby+ex5H1Q
/Ygl+xxJWf3xngiSai15avE0RBQONdqVToSffW03FVl4oVTbFy5viXCkbn1l
jGWfve/o1MdUIvzLOqrsGkNDj7+Iam16RYTq16WzWSz+Aim0h+YviGB8Kr+w
iOVfSmhf17tEIix4TayHPKIh2Ytf5JfiiaBPPprK/YCG8o6/CsaesuIv6Ghr
fY+GNCRu/ox9QoQz+3/J+ITTUOW6ze6hKCIIUhoDT96iod81IuW37hPh+pKT
6okgGjJ/S+Vsvst6r32ZVc4BNNQb3mslFk6EWrFJuvEVGpo+kbxSeYMIgV/R
+CVXGvKTuWGwJYQIit2CJ+MvseYVNpukC4FESDlezP/Iloa464QPrfoSYerD
MWqlGQ09zaDcN/QhwvenikfpxjQkdL+nM8mTCJXmo3zr+jQkb/AyUNOVCG2y
WdrmWjRUKHf9R4QTEVqkzl9+o05Dh7gu7OpwIEKhhr71x300ZNAg9CnAhgi3
d267KitGQy3Zq+y154mQLrY6c1eAhqwiuy13/EeEZs5XvplbacjN+AXxgykR
jr1P+K7FmqfuN+0+OKdPhHeK/PKx3VTU7WZR4alLhNbjDdalrVSktBGjM4WI
cM86TCuznoo6NDlP4bSJIPTpxu+Fj1Qk84Z4sUeNCOZmI392PaaioCNqOCsV
IjzJ4cx8c4eKfrV7eXTsJ0IRrSJgJYiK/LhxAa1yRNjzda6Ly5GKavz/Pvwh
9v94OQb/1KAi/q3btumJEOG842xjmRwVuWUaxX/bTYQPTx8ZBolQEW9fTcoX
flZ9EtSmL2xQkJ1+YXExNxFshec/fW+iIIpgdF8qcRn8b/eHaNpQkElx/SVR
wjLcLUk5tOk0Bb09zTbxYmEZNkp0GG+PUpBR+PXFhJllcCPszTEQo6CkaXeO
qOFlCJ966Grct4oOVOmrBjUtgy+fZ7WW2SrycVy/ezZjGWbxDm8TBckoV0lp
PvHdMjjcWuPOZqygKfKFCwOvWfo85TciplaQS8wnVe+Xy3Ds+prEu4oVZPfF
uz8yZhmOxPHusb+wgox39Wn+CFmGr2+bkvfGkpDcr/Kpo2dY50uNwlady8jl
2bjFPeNlaNZ3PinzeRmlOeys+W24DMu299irk5eR+MqVxAu6y+C817Xcx2EZ
CeyR0w0+vAxZecm0LFZ/ZLv17FWJ9DK0GPwWe9C1hIbU/M8qrhCAU/XiNkLR
HJr6RJ1/vUwAdc0qyVt+c4igHRErsESAh4r2W+pU5xDnyed/GLME6FIXKI4t
wCOlC1/N/40QoIzr8l/xzFl0/c7m8/eaWXjhP43ioqfRzrZ3DgMZBMCX+Kuf
2T+OxM7vZ5qnEWDagUv7Dm4MyfWXvm14Q4A0tR9uD1+NIe2JnyMfkwlw30mq
em3LGLpEnXOOekqAUL2jFpmTo6hARtvjcCgBCBnAM6UyhAyvtvnFWRCArNX/
+N2nTtTWM/1v5zkCDGqnbv8s0YnssI1jSWcJcO3pFoGEhx3Ib5va5lenCNAz
SlN/at2OXmY9eZeBCPD8YcJ/xXOtaLbPqK18PwGeEgV2KpyvR0G6l7S0FQlA
U6i/XSTzAzGzg19XybH8bUzWGpr7jgSCMj1BmgDu/XSbQHZAx/nYNzXuZsWn
MOdxonk5aggSvXxmFwHG4ERS7FgpMh/QaG3lJ0D49soaraAS5Jbr+KpjGwFE
U00jXyvnoEW+6xtWPAQY/vY3+8eZDHQj+Kl7DzcBPi+4X3rRlYLYB7OabTkJ
IPv2W7OqQAKK1a85MLiJAB9Gn77I1AxDapZ56jXMJXiJ4bB3f1zRSenete+0
JZi+GPz8+oMoZDPP/bthZQm+7ZLjvMf7Al35cjipeWkJttM1za/3vEN3H7k5
teGX4H1qSC1vRyZ6/l+iStfkEjTq9TE1v+ShbwuE+uGBJbgybmx8pf4j6qiS
ThjvXgIqSbm0TbsMTUeaOcy0L4FJfu5n5w+fEb9sIXn51xJIZL9bOf7yK3Kx
vqzAVbYEo+6DS48/16E8RatZC7clSJP9hWs/2ImeWV++h7+0BCVN/1oChzpR
6MNQ0fu2SzBbdaSSJ+ofOjuedrrMbAlU4p8urwx2IcLbhTyho0tQxMYlOPCw
F2kJRXoPbF8Cwf0lqtc7hlAdZ9WcW8UilDd0q1PlJ9AATnrx+tZF4J703Wd3
eBHZP8ATrnAtwi0/EbeXYYtoUKGc5My2CNma9Pb0nyzZx4R2ZnUBrOrHvfaf
X0LD5CBOmbEFYPzNKJvWJqAxniax318WQGXX9psR5ssIfyDolIjXAuS5rlne
Y82X3v8wk+1uCxAhuqjN/piE5kJ4TNkdF+DnXdySQz4JzX99azlvtQDVp7Kv
l+FJaNGw0aFWdwHK3nj/rvVaQURbqSBPkQUod9J9ttuZjOj3fqdV/pqHgVjF
e6MHKejco+v+enXzsB56u4lkTkGZjxWwpup5aDSvce3xoyDTxAcDAx/nwZa6
uMCdT0FpmbpCG6nzICPHNsAhRUVGvyqfGAbMg7ST7T/NdSpKbb5s98d7Hu5c
8CnmYc1ThL9C+y+4z0PBiLRH9gEaetUb1OBpNw/1P/m4T7DmnflZjU0xBvPA
7LWM7GyhoUTevJAOEZZ+6Skhszg6muG3Mby4ax5mu8rqk7PpSGf3ZsGJ7fNQ
RWT45NTQ0ZSk+0cy+zwk1wmp7pyjo2Pqe+ZFFuYAnOrbhE6uoVGLV86O3+cg
7uQcljm9hg5bG2vMfJ2DT6b790utraHHdhRmwOc52NLAdcSGbx1pup5/HVEw
BzWZJXrbD62jR0E7e7Kez0HGqlzSzdvrSOVl9Nl5rznQKhbfIbOJgSIuWWU/
dZsDqvA/OwN+BuqVl2Y74DgH1lt4AxWkGehBWdmnYKs5WG2+tq6qw0CD7SNi
G9gcjAdbi2sEMtDBV/lB6UfngNSUYmp6l4GinIL/nDw0B8P5w28VYxno0NLW
iKj9c5CdtLVCKJuBYni1ZncKzoFYz84fff8YaKyT7WQZ3xwMxIgbTI4wkHZq
82trnjmYFm4fy8Uz0MR+Z/NUJh4e2Cd/9N1goGPLyvmIhocCFbNILx4miq9c
5Rgl4YGq62cmu4uJdE7FVMjN4sFtbyWuQZ6JnvFd2PlrHA+G3K+Pl6kx0UzX
Hh+vYTxYbdmddPEIEyW5VUgVdeLBPLtPaOgUE83fG3t45Bse+NG1yVx3JtI/
/WGkrxIPvvHJK35XmCiZ/8bR25/wsGv20enFa0xk8G77Qm0uHvxzyLel7jBR
ikevket7PFRQBANaHzARQfV9GtdbPFAkzilpPWai19XaViaJeDg/52+llcRE
xPscRfOxeOifmA36k8xExmf+bI6LwoO8TY2u1BsmeivwyvnAfTyM8AtI7k9n
opU+16+dYXjgGml6js9kIpN0td0hN/AgnMhd7JnLRGmeND+RQDyci3ku+LaA
iVbV639X+eKhWNLSNLaIic5Snso6eOJhrbFJT+sjE2V8s7294YKHVc039Jef
mIj6UK473QEPprG0dyXlTGRmuqRuYMOKp2Dtl4gKJsoUrIqessTDfo6LGnxf
mMj8/TmkbIyHG90XD5l9ZaL1A5MEf4SHqZ4rrQHVTJRbG5pZdhAPxC8ZF4NY
stU5fhuaIh5CnT6jC6z7+UIDH1Nl8QC8LvcdqpiIbThrGyaJh3+mlefFWfjW
WQHuo8J4YPAGvo5n2S+8chwiBPBgPbiJHVj8UnJq7t/bzsqPaLmERhb/qLET
xne34GFpXYr0nOVfiGQd7x0OPBzKlV+VK2YiVxuD9jDmLBh7PvkRVMjin9jw
/DZtFlIVHfc/ymMi7I+x3a2VWcDbXo45n81EYgam4zfws1AftV9U5x0Tbbnz
N+f65CxcDUxPPJfKROQvFldCRmfheYuqgvxLJmpTtyYHds/C5egXgvxPmeib
d++Xa+2zUNfETlCMZvHPsgu/2jIL+fbupWys/IgUd9zsXzcLp4YEqkg3mCjI
GtfsWzMLo9vDqvgCmcglwTX+SuUslJc9iplh5R+22VPUu2gWPGLN6WOOTKSi
jx/yzJuFcfadYxs2TCQadiXjcuYsxLen9g5bsPKFGKDsnjILFQ5SPoP6TDSm
SlpyfT4LBsWj0YxjLL6ewWUu8bOA8R1IHz7IRAXDN5HTo1noH5kRHN/Dst8U
ce7itVkQGWAPXl1nIHMuLkE731mYWjM7LUFiIEw3stfGcxaydOL2cs4ykOjn
J87Wl1jxMLKS282q77b0pEALk1m4FW81bpDDQN8GhbTNDWfBb8M17FoqAxUK
v1o302XF481hdbc4BoqMffPwrNYs5LawsUeGsPBvZr88JTsL31WUZPv1GEil
bJ+9kSTr/IHxW4FDDCS2lC9jKDILmz6eKNmuwEBkt+I8fb5ZeP3EqPgUDwvf
vPIros/Ar3yyf2vLOhLd1zSi2TEDqvd84jDjdTRQrxHQ0DIDJUHv4oUPr6M3
zi/ZbH/NwGd/dDZnzzrak+q2J7x6BmrqSyYItDW0n2/D5Xf2DDScLTijkLOG
jq5oTtnfmoGt78tO663Q0Vp8SshS8Ax09tS9zx2koxrVTZsjAmbgb3PG+6Z6
OtK7/Ecxx30GrD9Rs44m0dHpfk+v5XMzsKxZYjekTke2tW/mH8rNQEy2bIuF
HQ2JO3CGiUjPQP1timwARkNDNO/tBaIzcCS2Qs5UloacNbXV2vhmYGzXlzNo
loq8sjv8xWjTYDrbzsnN2i9uxmwmFbVOA0fg3jteYRT0yuYqrSdkGmjb1q6f
ZfVTomfcSsPVadgaP31+8QQZnb35Yan8yjRUDNzidpAiI7aU2clEl2kYdN0U
k96/gjwGnDvOmU0D/dn4lQ7zFXTokmXBL/lpVr/U/il8iITaXDUdKv5NgYsr
lU20l4C4/cm1Lw5OgfpQf6yf+TRy1lc/9U6Vde4sTqijT6Hq3V6tOfumoJKt
XHw4cwpdqx7sq5SagqobzY88qZNomKee2L91CqSGP/VTXk+g8sxnctLjkxA+
6vMhdhCH3PrVo3ISJ6Eujv3ESEgvgg9efCVPJ0F1CVdjU9uDxO69T6qMnoQ3
d0I1X/D0oDZF4fTGO5PwI1q0yj61Cx0PZn6Z85mEULexe1bVHUiAv3VO3WAS
bt3pm9Sca0S+49zXtE9MAhd9Jlfzxm/0+7MuVffYJOxlrNIpnL9QuEMZp6XG
JBxuqY37LFmP8PmpkkESk5Chl/txS0o1Mgzven9beBJw8zlJ+JIvKM1ih9JD
gUm48/eGaNCvz8iaGqH1Yssk8LJvNIqtlKCPzdXVbzkmoXiZStcQLES871b1
c5gT0M3R7SWim408rmk0FtMmYFff9/VCnzT03dD7XOXKBEim7t+XovYcEUKj
0q2WJuBiSCnNgu8ekinJJhFmJ+CBZKtjwZ0AdG6y3jB2YgIyjZOERxviUbjY
+Mv9IxNgdhDno+37Bn04twn/s28CAjx7nHp5stDgA2kdl38TIFabKXbZvgAd
W7o4mtI4AYax0VcvspUhL7nQg0fqJ4D2/OXP+X0VKNk2+UHntwnI55Z7q2VR
hSg//u3jLZuAN9UvmLbmtags2fRq2NsJkMe9cql73YDGW31+iL5i8eG+8EFC
/TcS4Hi8+3PiBBRcOfZb6Xsjuurb8GUxagIWb4yYKU20IDX9E+xOgRMgUBOZ
dO9ZO8qd00jUN56AoQfdrVMNPahH5tzksP4E1O5eWeOJ6UXc1r5HbqEJqKwV
yRwy70PutXkDnw5OQIt6R59jXz+SfS4rJy85Adv87N/8mBxCrzHB8s3EcRDA
FHDxKzgUn0Dpbkkdh1vDgr5RddPowrHWxJ8vxuHK0O/hZ0IzSGo8w/xbwjjM
9G9YWHjPoMJDZk3FkeNwKM/3Yiv/LPrdk1nzLHAclMfSYr/a4tGGpGWmzZlx
UCltVtbun0cNDYrOFkbjsGVZWzZ23wKK8WdImuiNw8PLY69vhSwgse+5L48f
GYddmNt58Z2LSMtt47HU3nH4YFygbqa3hPzyC69O0Megv5+6X6qBgA7/F6E2
RB6Dn+H8qHaWgNbXLsx1EcbApVd5VWb7MnpsyuH+a2oMvtfdVZH7bxllEWxt
8jvGICVndJ/04DIa1Np8IiB/DMT1ac90cET0fmRwzTNrDP6TkDV7y8aa56NK
K53TxkDNbXimXJqEqH0OB/97MQZpdSPF7A4kJBhWJq8VMQbXdteY8vwjoTM/
nHnXbcfA8mKp6vZPK2iqVfx5lNUYbLE3fpf/dwVF9HZJ7j43Bj36xJKJuRVU
uXBaXc1gDNZ/q/LL7iUjOZGDlk5qY5D91MYbYsgIZOf75/eNwQWzewzxbDKy
U812vbmXhRfTzLENyChBXyz4mcgYvNOSt0xfIiPmFfbkevYx0Bk4PRB7ZhW9
ul4tY8HAAfX0iQ1P51V0KCIkb4iCg/VrRi87QlaRz0t81eo8Dni0/DT101ZR
7/eOoX09OAjoLgm+v7CKAltiPMrbcaBs7LMtc2MV8fUYLem14ED/I47NaCcF
Gc5XsV38joPXvziLBTUpqFTo/d7YAhwsKt0OLQlg7SN7HApFs1n4ntN+neEU
NKMsfDg7DQcbvWykqzEUJK33xAie4+Cs5Ok9ktkUVHXG8O+ZeByEFon17yul
IGvrjQu9j3HQHSb2sqCGgmJ8Ar2W7+BA+kDNiFAnBSmGqBLDQnHgFHbNYG2Q
guruToduDcZB5Gh76X9TFHTpSTrHS38clEUNkqSXKIj2/GLMXm8ceGQsyDlQ
KCgpbffuEjccDCdfkObdoCCNgr9vdBxx8Comg1+Zm4qay6MVGm1x8MPcQ76S
l4o8ak8Wn7fCgaTJKYFSASra1Mw4MmaGgyfkGG0xESp63VVR63caB7Hkxbfz
ElSkPXr19NpJHByLO6WuvIeKOvHKHZEYDvAl3Js65ajIjzxpJ3gUB82h0g1j
ilS0lS1tPE0TBy5uhfp2SlSUtdXuiqoaDtaeFx47qkJFursFyV/24SDc68+Z
MFUqClGK4u6UxEFCK+e+g2pUVHhiXXheAAeMVwdDAlj3T5l8TruxHQf/bm//
msbCG7MK2M+1hfWeHmmjGvuoKNxRqTSBHQchhDgeaXkqEvWeOCbFGIV5ywYf
bxbfszPn1TZTR2Gfv2u6kyTrvsevPQTiKDQmyuv/Zvn7cUJ7d9/CKPzQUSa8
3UVFEy75W+pmRsHGnxw8sZ2KhHHi6/njLP2B0F3Jm6nIxDF2KXF4FKrCGj0r
2Kio5GJAt/u/Ufjg0Fams0xB4324RrO/o6DPcTj63QwFCdn8V3OkaRRy44r8
vEYo6LaVViZP7SjUfPvv6LFmCiruyHlJrBqFG8r/8Z2opaAxc9EnA+WjcMxB
oj27jIKMTdevfigYhRhd54y8VAq61ezr/iJ7FG5XywjoP6WgotMjNnfSR8H1
yPTUsbsUJGhUd8Li5SgQs+ltli4UdKpeU/PYs1FIHvg0GWBJQaH6WQp7Y0fh
nNZK27weBY1gUdvJEaPAbq7UwJCiIIEaGttw2ChwT3wQeM5LQQbHfVYaboyC
9t58uwe0VZR/xGwg2W8UEvyD5oLbV1GIhmCejt0oXCJ6jt+7uYryih6+lj8/
Cn6yrgeGWPU6qEKJ4zMfBcE287XY06tIf39/yKjhKKhkuArihVj1KJtm8OAA
K94X/t0MySMjvbSd2r4qo8DZ5S3uxPp/BEndV7ZWHIXwHa6tyX5k1C/mIbBP
chS2qbwzIWiQUdYuldHmLaNgf+2HlNSHFdSb8KazjGMUrFd5FhweryAhGamn
xxkjcPryj8pJjxU0JjJxcWRmBG4vKn5okFxBN7cGUBRqRyBdryDhUwQJ5S5E
qn32GwFtu4seIfuIiD8gQ/mr2wjYZLNtzqEvoxvE6n21diNwKc/sqmjLMjpN
WZZtMhoBvw7a2y9XlhGezV54WGoEhibYnvRnEpCqoAYb999h1r6aSPw+soBe
vDBhbP05DDN8ETvcfBYQU8SdvuPrMPw7lT/qT55HfyRTVkRzhkFdWJ+3iHMe
BShyzqreGYbYjTWPnB14VHqst/28+jA88Mj9xtY9icRqiH/s5IchaeyLxqFT
kyjixPYWR/Fh0IkNViz9PIH+M9Bv8No8DKUWfaYP4sfRimlhVdjIEFQn4PZd
VMehI85332fFDcHJx3HPozR6Udp4Slr+wyGQMgt0Tu3vRls8yt8U3xoCORGT
g7z3ulCvN/7ll8tD8OD13UOEug4UGmQV03piCKT1Zj9vP9yExlb9ojsOD0Gg
Qvejo2a/kMnN6Ec9ykNgcY/kPudYj8TDv93FCQ/BYYWdaZF91egBW1/Y1PYh
KBCTX/3w9zOajyCFznEMgcutnl2vP5cgKy6+GwTaINSXBx56JJGFqiP3BZOX
BmHpQ87ZYLsE1Nq6bavs5CCgoJn46sb7aHjX0luz/kFov8V71/lzBlqy7dC8
9XcQslfHHM+eK0FsaeW/c+oHAdoM9DrOV6CdU8kO/74Mgvh8+LUKv29IVuU2
ka14EB4kXRFltNShk5X6EnavBmFmJOaWgGATsmLKf3z0dBD6dQ2zn/1sRW4G
PEaf7g8Ce4HCoGZtG3rU9tef128QxBznMI3of6hpxv7HN/1BuL1nmslvNYgG
1HRt5o4Mwp3N2rfrLIfRfNDeBWHVQfAX4i3YqzyK+Dbhha4KD4LKbpSHPzyG
LEWve++dH4DaGe76Vs8p1Hc6YWfU8wG46WbdhDdcQvi4oOyyxwOgENx8KUSL
gOhdF47j7gxAyxXD16iZgCRcpNyPeQ9Acrr3i1zqMnIKLaicxwbgV1b7Zk7X
FTST/9PRYqYftleHV82H0NDqNvoHseP9cFvj6MkZC3ZM6+hZEbYD/dBwIvvq
SD47FuLxNmJSoR+8+UnXQzg5MEqt/oUSgX4IeKbz6P4XDowa/ITNCN8H8Xvx
H/Yrc2FrIxL/XX3VB78CVmN3q27B2MpOUH9ReiE1ItePu5gP08UluHxY6IXe
HsP3wxI7sLt8Ey3PxnuBbiHRfvnJDmyTV1S6w99e+Cgh225wmB9jl2o3IWX3
wg1uomaCyE6MM8rljZR1LwwWXdu0jSCA8dg/1A8u64FHOhWkGxNCGPFsmkFE
Xg8Mywxrh6oIY/3oq1Hc2x5oC7i5Oh8kjBVKL5vkRfXAJI9OyP7NIpj5uP1/
Q/Y9sMf1fh7nAVEs2fuQmyFXD+i1l/17nSKOKdwcf7jbuhu02+/f5XKTwXZ4
MyNlz3RDF8d7o/A4GYxqJ/pYXbcbeDUN9bW+ymBNOueenlbqhqjHBtvcdu3B
fNm+vghjdkHjxurzmoY9WFnks5zJ7C6Qttx7+OXRvdjJF3qN5ZR/wP1Jfus1
CwVMbXsSjjz/D6pE83YZPVDAxB5M0Q6P/QOlrIAhhwoFjHD1idLnln8wfqzx
mK2UIvbWtOvJ5/R/UD1CKny4pIhROb3MKs78g/6ibJG5t/uxosD4zsp3ndDt
rxz8RlMVS8GPzVGTOsFAJMbPwV8Ve+h8mPPo4044enli1bNAFbM/13/oS1An
bMV5bnGTU8N4lOVefDndCUrj/wksi6pjbmMVNlWkDojhvnKxI1oDE7MYGfp6
qgPm3G3iIf0gdrg4rbkMdYAWTfibUd1BzHy7y5cPmh3QgztMI44dxB42TiS9
k+4A3fyisio5TYyghz9zn9IO2VzhJ3jzNbGGg+QvJjntUE6a/v3v6yHsmuC2
F33c7TDccpCXua6FxV5rud+x3gb6bEup3rJHsNy22KvNxDaQWnXvYTM+gg3F
8JvWDLfBxAvVuvzEI5gxlxBn+uc2OGBDvkVT0cakVmWueXq0AU5320T25aNY
UrHv68Unf0H51Kp/KPM4Jk66l6Me8hfK3cz37lTVwTK0XpQGOP2FQvEj50cu
6mDFNd9+Ew/9hY9E+769VTpYU/MO8urQH7C/ML1ieRNhG9MfTTfU/8C5xe/b
H7KfwLxlVpk7/rWA05OXqfx79LBl161bLb61gCEjZkRYRw+7kSO1+1luCxz6
Ix1+4oIe9lDtlLJgWAs0snUSlmL1sDSd5AsiCi0g1rdU1b+uh3XbHCuRudEM
v+Me8q+P6mN6CeHOBySaQMu1pfzdDwNM4X2A8MTmJij9o8c9N2qA8Za7tL4g
NcKpuq6jF5gGWHev0dH1pkZY/+G3K/GoIXZFZsfOXzcbYfLC7+XXHw2x5OJ3
tfY9v6Hg2xlXqVwjjNBaKx317BdsOqH3enuJMdY9Utp1LPwXxPsu32pqN8a+
Lmc+WfD6BWsDDfgPJGPs0e5oiqXeL2DUJqnPHjmNSThY/JUkNECuxmyvVt1p
zHgeF/7JtAGuq0wtXBw2wdK2cgwPb/kJHm8cb5lomWKP97nVUlbq4Z6vk/Et
e1Ms2OhnBj+uHpZdRKt7Ikwxk4jIy/pf6iHXez1BsM0UI9G2LWd51cNZ/0j9
zCtmmNGsIKdv0w9A6b9PmBedwxZ+KSitPakDTSGOS41KFljvZCSv4I06WPnP
XKBX1wKr45hdVHGrA3vbwJdsFyywFycKPl3SqYNDQuIl7+5bYLoV6qhu/jsc
juSsFh22wJKytc2jTb/DtqCgXMlkS+zYQ5MQ4R21oFt40/bqHitsziqUf4MI
8LXy6z0NZIW5vHM89PcXwM4JlR+7bK0wi0NKt/2vAjwaxEefSrDC1C7BtpL6
b3B4l5iiN8d5bPrjrNIBnxq4m2Ze2rp4HrOzxbw0K6vgvqi2eun4Baydta5w
xFZBw0aGymVOG8x4ccvHTucquPV+98wpeRvsyP1OauC2KrA5qpIXe9kGE/zg
GVV26QsMFRY0H1i0wVrZEnMOc1WCoF6hkhinHaabOz15xLIc/uStHwuwsseC
46Ic5/aXQ93Fg47xN+yx/JD9fW83lYMm51j18Gt7bJehTwvXxzJ4nsLYt3nK
HpvCLZZ27iiDsOxj1k9DHbAY8dU7/q2lkLTtkuSnwktY71NOsRzjEjBhbTL5
qU7Y9pCsRDuZEijavh42XuKE3a+KEZMgFMNQcZqkdoMTZn2BfxPerBg4224e
ObzshK3HC/95yFsEod7rmveNnTFjTgXPmsgC6E4zMkxcd8ZG8fqvVcKzwf3v
hYMVt1wxr3NnlzTlsoFUvTSQ9dIVI346r3+8KQt0HX7yfPvkinGGec6cFsqC
8h036D7zrti+HU8PXS56D9mHl5t+OrphAZp9LenDaVCK6+guMnPHNijDdNXw
FzC8w+iS/bnLGP/35TSdpueQ+Jgnf/PVy5jsY85TZ4Sew+3Hs4OTzy5jRhJK
iZ5FiVBmk6ym03MZe6obrPx+OB6Uyk832rp4YjoCwpUa4Y9g016hQ5kRXphT
pg6nmdBDIIbseJ+V44U90HIx9ym6D7l7K51GWrywFrsPM1nDd0Gv3+QYQ9gb
+2wUeVArPAT6D356PF/ijTG9O5oCigJBDJ1IqerxxoziJF0LhgNAVZNj6AfT
G8svvqyoF+4BgT5O6dGmPtgxKuPC52EnOCmEcEbBPtize/t2Xgi3huy25326
b3wwV/n8iYhwI6ATlInXf/pgJu4z7bWz7t9urexInF/wwf4HitPx7A==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.5136168864009542`*^9, {3.513617103434561*^9, 3.513617108939858*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"EconomizedRationalApproximation", "[", 
    RowBox[{
     RowBox[{"g", "[", "x", "]"}], ",", " ", 
     RowBox[{"{", " ", 
      RowBox[{"x", ",", " ", 
       RowBox[{"{", " ", 
        RowBox[{"0", ",", " ", "2"}], " ", "}"}], ",", "6", ",", " ", "2"}], 
      " ", "}"}]}], "]"}], " ", "//", " ", 
   RowBox[{
    RowBox[{"N", "[", 
     RowBox[{"#", ",", "17"}], "]"}], "&"}]}], " ", "//", " ", 
  RowBox[{
   RowBox[{"Collect", "[", 
    RowBox[{"#", ",", " ", "x"}], "]"}], "&"}]}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Abs", "[", 
     RowBox[{
      RowBox[{"g", "[", "x", "]"}], " ", "-", " ", "%"}], "]"}], "/", 
    RowBox[{"Abs", "[", 
     RowBox[{"g", "[", "x", "]"}], "]"}]}], ",", " ", 
   RowBox[{"{", " ", 
    RowBox[{"x", ",", " ", "0", ",", " ", "2"}], " ", "}"}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJwdzVsog3EABfAvklBmk1EuWS5FVmxZ40HUFyVZKQ+bxaY2xdY0Sd5MKLcs
bS9rxpSmTQ0JSUtuyQspHpA2bEwuo/awmeU7/4fT7+F0OrxuXZsqgaKofCaQ
Lc6kTfy3hgx5oAnOCE8lUCD3E/t+7B3wpqtCDhcS75VQERb1wCXrlQaWclO0
sCrmHoT8Er0Bpk23T8JP2coUHBhbNJJeEyFedPRuQe554T6MRi59RNtHEFro
3BB8nTskPs+vhsm/RBKDxqxQkplxnFuZDOOPD0XQWT1UDPee62uhyHlHzJuk
HxyMtNkehO9d0RBcD46G4TEt8DoZl/8aA1AQX5C6GDlathLmfI0cwlS/+wSO
ym4da9iFfcQCnfUIHmzbiJvNlz4YoPRP8JdDl20wtno95fBbbaiE6S0sIXTd
8cRQfe+pg9k1Gik806pkkJo1dcJpy44CXk+89MNd1rAe/gPIMOyU
  "]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "0.5075316697451157132207797534737070413`17."}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1.`17."}], "+", "x"}], ")"}]}], "-", 
    RowBox[{"0.05870137742576198539379638523648233873`17.", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1.`17."}], "+", "x"}], ")"}], "2"]}], "-", 
    RowBox[{"0.01259099804971010048200355851272834791`17.", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1.`17."}], "+", "x"}], ")"}], "3"]}], "+", 
    RowBox[{
    "0.0012187632506108072730235703019123114747600854537471181446`17.", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1.`17."}], "+", "x"}], ")"}], "4"]}], "-", 
    RowBox[{
    "0.0000998883412042648273564755107506915419190316387461540366`17.", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1.`17."}], "+", "x"}], ")"}], "5"]}], "+", 
    RowBox[{
    "4.6422073954430866815065898111698555995951656962197209`17.*^-6", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1.`17."}], "+", "x"}], ")"}], "6"]}]}], ")"}], "/", 
  RowBox[{"(", 
   RowBox[{"1.01506333926296347325819853728493870335`17.", "+", 
    RowBox[{"0.24428567225939440494486758763358201538`17.", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1.`17."}], "+", "x"}], ")"}]}], "+", 
    RowBox[{"0.04514413595376313393656035991548180583`17.", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1.`17."}], "+", "x"}], ")"}], "2"]}]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{{3.5136171448539*^9, 3.5136171584890223`*^9}, {
  3.51361728922405*^9, 3.5136173000628357`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVV3c8lf8XtyoaRtlRoaFSqYyS8xw7FRWRkdGQSkOhkgaJyigNX6GUrLIy
QjbZI3uWPa5r3nvdy+Wav/v763md1+d5Pue8z/uc85y3zEVH48tcHBwcltwc
HP9/Hr883FA4cpkQKpCmBbYbEzzakrd7JHSQeNqenZFlTBz8Evzpp4QJ/tHz
t+L7aEycqGlLDZOwwysGHWYaNsaEmd1M3jsJF9z9+Ne9iSEjomvfC+1XEl7I
xymgtobTiAgXOfXcVyIQv907aa6YeJJ4WPOh5Gx2IE6ndSn8dDtJnPXu5ZI7
9x9ukPq27qX+SWLt9B33nE9B7Pc1xbaTDAnX5kDX8c0huPPBs4LtsoaE0ft/
Die3f0a1vgsybXEniKe8P3f4SEThrWMGLnSGPrHr6NuXqbejcMDvQ/+Ncn2i
0dtxpKM8CudkbxeqftQntnIrxO+9F403N3q/ytXWJ8oWo/Y2N8ZgWwKD5hJ8
lFjLCFLe7B+LcSuc/Q6e1iOCu9y005d+4JvYjzHh09qEppRFVLdpEh7QlShX
a9QmRi1VV/AmJuHZSA1X0SRtYtP4g0uJe5JxIGNT5Ztr2oTjNZVtHJ3JyJO3
1dy7T4tYb5f0PfpQKnrz2U4KdWkS5hZfk2iTaah4cU/60DIS1A6T1RGS6Vie
p/n+SzUSz214L5/RTsd4JV6O9A9I/LzkKJkRmI7QnlJFV0SC/xZ4P1TNwAMZ
Oy7FXSGIUs+/lisf/8I5qlu0L0mdOJAgtFKKNxuL3b4yNTarEZV7S8/XKGbj
mqsfHt6dPkycT3HNeWKRjT/iVNSmqw8TrzJ6bvfFZeOh7CcGzQ8OE8OFiR0x
hjlo5Jdkyv33EPG55VjK/ve5OJR9bzErSpVYs/zU6uimArw6E/PuzC1lIvia
mY2CXgG6/1krkmioTGxtVjgvdKsAtT1IFI09ygQR23apI68AWS98ZUUnlIis
2KD0X3sL0bckj/+6oxIxcWY890RtIc7pPOh2eHKQMP3+odp5XRG+qybrqRbv
Jz5ZexrYyxThAf8Dh+Ri9xP962/WmCsX4f7C+QoI2E84PtaqA+siDNvYtW/p
3H7Cx3iicVViERqJCJ6MmFEk8ha0/n00KEbFfJ5X+1UViW1GlOFivxLMyN5k
FxK3h5B0P6p25WsJ3o3z/Hrz8R5CMDHcb/WvEpxqnD8bcnoPMcd7Zq9RfwmK
L4X4TM0oEPWFv5y7D5UiX2Vh8LfjCoSb4tOlWVIp1lXGCV9b3kXUCggL79Uo
R8bzwAbyV3miGG5ebjAtR6fcolaHJ/JE5vWyDJfr5bj6Va/y/nPyRGS5q0VO
UDnesnTVfC4iT7i6d33WnyjHF+peezRf7SBkqTE7L4VWIDz+q/fs5Xbifu1h
DJ6qRI93Cw1RcVsJ/r3ppEreKiw/aJNz+81WIuqVov+8VBWGUAUcr93bSjQY
7Phro1uFgo+OhPVobSV2Vws7bwuqwuK7k/PNXXJETzk1JlW1GrMrpKwCN8oR
R39H89e4/cGf9++BaJoM0b1FJn3p9R+ktg/G13+WIVw8Pp1TjPyDl011Xyf6
yBBf8f3399V/0Hi2+80fWxliPs9Dy1KqBo+/s1gKXidDJGWfu0fOq8HMhy48
Co5bCLE0oW5OzjrMjG0sLXqzibDynzcZFK3Daeuo5BqHTUSEHam6TKEO7/6s
khLR3UQoiGRl+ZnXYWzFy2TzOWlC6975/0SS6/Ce36boL1ekCZVPZjGB++rx
iifPjRQDKeKCTYz19+56NBISb9YAScLr+MaQkJF65GB9DvonLUnEqLxp9p2q
x2zP3CvhSxLEOL/biZurGzDr5DGZ5EIJ4l6B4eEDKg3I3/I+s15PgvDfMi2c
+6oBP7tSFXMsxYmMfu0/deqNqJq4NtT5syjRqv908tXRRlw0ZlgaeokSzB/5
ogbGjXirzVVfz0GUUH14+ELFlUbcJDnHfK8iSmRu2McsfNeIC8o4ElgvQmTp
SG5JHW5EZY99Ryh8IkRuDM05MLAJ0/UqL258s4EocgjbaDHejO5GDzjcugSJ
nyPXr9swm/Fw3n11lypBIuqqWs4ljhbsWPH86KNfgoS3fZvlLeEWJL1UWJH5
VpDQvygU+ky9BfmvBR9t1RMk6iy8xX/4t+BYe1TivisCRKf+TRHuPa3opqso
QVZYR0xvB4HEm22449eXY24sXoKLFS+4cds/DKq97qxRw0GoLJ/POPOjE40W
24esLKbAwLDQUzezE/+qoxjsnIJLHzefUi3qxIS/vWRVFgPeqHaTJVs78Rma
X/ELYcCI4zmJ/sVO3LqoMfy9gw6fek0f3Tbswu9qpN8plyeBs+i41qvxLnwT
5PdiWXYCxAXj+N2ZXdjBYJl8rBqHvTZ8Hbc5ujFBoe6Ps9M4WM6VO5sId+O7
j0N/aUVjkHZAN3qjejfaT/G/XLQfBftI5I3z68bdzAm3pzlk+OOlVFu2qwet
rR+/WPOhH9QEqrneKvcgI0dlVkOjH76HXFA9p9GDbbXfmqpH+uDZj9fhVNMe
TFbKtK2GPlBrH3YSf9qDEap74i409cD33WFiDm09aF671ps/4h+IZhw0UOrv
wZM1y9frlv6Cl0aVx9J4D67ceKJDz+ovJMfNuxzj7EX/CyERUhLt4Fcg390l
2ov7d/Jk14a2gNaIZ/JKrV6UWH/rnmJ+PTzYW1t1/WgvvnIJ2ZK4rR6SnSVI
9Qa9OLstejxyYx1sWkqS+GjWi4ciy6Kg8A+w1nd57rvZi5teOjMHJCpA0Vw+
LNCpF6X1L+QUMsrAPsz5F+t+L8K5EipnXSk071g9XuzZi3a5oZd8fIohWV3V
1Dy4F3nfxjz33ZQP5Keejnlhvbj25lW7Q8M5sKm8xkc2shcVdGeN29OywN/I
Ln88sRfLUose7jubDsVBSe1GP3txg/LdI1K7f8Jcxxw9I7MXN8qX5Q5zpcBV
+7c7nhb3osBOxkH3u7HwJb5Tc6iiF+/E+mzsVY6GVtoOqxO17PgOPMjOmQ+H
dSrO95KbenG54ar77dchoPMw/43I316MkFRrVN3/Fh4W8sW7dffi+sv/ICv3
KaSuMC3tGejFYuPvOae6tGD4eHiPzkgv1porntd9+wQ2vxljxVJ68d1c7S+j
2ADIv+Aem8roxb7TLVev3PoANgc3WOTM9uL161bS1kuf4VOrWuYfrj5coZd/
3ojjG4hL+96jivZh7nhZ2oOBVFgfJ89Qwj6cJjkKS4cUwoqSy+MFAX2IueHb
TJg1EPUf62NFYB8ul4vtv/S7FnSuvDrRENKHCV/X6O/xqwPP1elx/ZF9aL3G
/Oq9V/WwdJrn2orMPvRXmc95L9IIs10RpOO9fWiW9uPw3lUtMDbT092i2I9d
l27sNnP8BxlXAoqOq/RjCpdVwp7yf+DRRsQUHOnHB6caTxCbOkD0V9jNWL1+
DN2p3ihd1QFa984tPLLqR9Noxr5O8S4InWqV2PqyH4/yFfwTetcDl+2eLwa/
6sf4yEze5q4eUGxW7lv3vh9NYkfn7YV7oexn4PeZsH7cdWexQtemFyadjFWr
f/aj9MILracTvaA/WWPi1NOPtz2EBeisPthw4fEh8mA/1lmLxTZI9EN3vYKU
1Wg/diq0Mk8c7geXZL8B3el+bL0j0aVwvx++OB5zklgzgCkfWl5fp/QDc6Ik
oFBlAGvLPS6JVQ/Ab2sXZ2X1Abx2kVuSkzQA/jVyZnGaA9hwQL///dIAyCZ6
bgo0GMA2SXUnf8VBMLyhkXjl4gAWnxBQlnozCFGjOVX8rwfw1MiE9jcgwa0P
p+Qc3g+g/GPVL+ZGJFDVGXhYGjyA9eMuS6l2JKgKW73nUeQAGrIc9c19STB5
2iJgJHMAj246T3JuIEH24jhZJ38A/7jtFzvXTwKvOA+N8OIBjL8Od8bpJBDn
+T55tnYAa6oyCJ4NQ0D8Yp4pGRjAwpankpKnhoDXzjdh88gAVor9PKJhPQSN
gptWPKQMoIUhLVfo+hBcdtDN2M8awIcPTh3N8B6CvWJ/+V8tDeCjf91u7u+G
YLb4xpVh7kG8vcAKoX4eAn/pQPEv/IMoFLdQ2J0xBGerdtyZ2zCITm77RU8X
DcHm+zmVphKDqK+T4XO9ZghS6/vd1m4dxMGY47xR/UPw99n+rgeHBzHZ5YwQ
Px8ZIhRLlVuIQdzyKm2yXYgMN7rMXyvqDOL2XwlcJyXJwKHqgeSTg6h33it8
9y4yVA1sCNYyGUTvf6nu0fvJ8P7NN1qYxSDe+NuqXXWIDNtHa7+a2A3iVvtk
5ho9MtCCLs4lXRvESRe90oMGZMjWZhqvcWTjWS/btcKYDF40n3h7l0Fca6co
/MyMDIZh0jxFDwZR5JL9yA8rMogeT7GSdh/Es1n/kV5eIEMvUyfd1WsQjc78
OiJgTwaX0zfs9wUM4rmT3he33iIDsbic7xs4iBXJQcey75BhVdx7saGQQfw+
wxvOdCFD/dkdtzW/DOKLiML5wftkCOXOqfgUNYjmnU+7PdzIYJd8UmY2dhCt
j87VVD4iw17r/gdnkgbx1OHbN8qfkGGW717jj7RBXCf+Mfe6Bxl+Z/DtXp09
iCSrYx+qnpJh+Jr5q/t1gxjmLnyBz4sM/NLfqIODgyi6tfKLIftc4+yzroGR
QRw/MMTHcieDU4BtdT+F7c9oVYA1+/6oiiNZfYxBjL85ddaD7b+VU/xb7+wg
5oV4/bVix8d7ZCqwZ3EQn6+N/c5ix6/mUu/ZzUXCe0njncfusvlLTLjdtYqE
By/fvWLlRIbPQy9tOteScDLlap6CIxv/5ssGHUIkvDyqm/rrOhm4LDTV/omS
cPg/6RHuq2Swr2aJtG8h4bhgVGi9LRmCeVq527aRULCkc9b0HJt/SJ1s2UXC
/6Y7TgefZecn2aGmSYmEeaHPtEzZ/J4f0ctpPExCLumPG+vY/L+TlYttIEj4
7auU/xpNMjADO7zq9El4uP+DapESGeRrfznVGpJw9nhl26G9ZLBcFXi+xpiE
q07ljbnsIEP+AwP1aisSNt+xU1OQYNdTqvyuqgskfGpV0xzJrlfZcR7xSnsS
VsoFv+1k1/NzmzxG2W0SLo5P6XxgDYGh9t74Ii92/FrPFDe0DsGTR6tDfvuQ
8KTh7/6gP0OQnD70vPA1Cc/kni3oYPePsPyXi/nB7PMf91tTfgxB51pByewE
Eiq87sx69GwI+PXGV2WlkHCL+zldOdch0HCvmP6VQcJtc2fjHt8YgqhJj4b0
QhJqlpbu9zMZghutky9TmknY8UKvkCwzBJ8Fau8l/yWhowU3I0p4COr14+yS
ukmYEfNIfu+qIVDKuaiROExCipdnzH9jJFj40jTzfYGEFy690EhIIYH/tXT7
8K1DuClo5XqjgyQY1Uh8uWbXEIrYBkzJyJDgqHh03L19QzjvI/UqhZ8EXOWB
FAO1IaR3/nMUGhmEB1td7rFODeGw+yrXv6GDYN9z4LnxwyF0CRU2X6YPQEnG
ru95HkMY52htyuhkz9vXslXyz4eQsO3hSikbgC719fzLb4ZQMne4xD1kAExC
J/+LjxnC2tQLshbqA6BpmhzN0ziE6ncaFEPZ8/6zwvdyx7YhDMxdPb3Wph8W
uMNH/nUO4fGX+Vu0dfohMzVgTwp5CIN8Czk2C/bDXkHHdOvFIcxU/LtwNboP
pKr3lGbIk9G262iZU1kvMDXiB6+6k9HrDBdTp6oLcqPGPt73IuPcbrXNJgFd
4MmrcOa5DxmT9CTS9pl0AX99wu/I92T8ILRmJ7OzE7bb/vjc/Y2MXerVbw6P
dcDZxynmJvVkdFeKlhia+wvpWb/+oMwwZmXuejcz2gJu0rPPTm4fxj9nm8+L
f28BjaeHjljvHsYUVW7DebsW+KOfFeumPIyKw7feinQ3w2Bb9vP0Y8OYE9Bu
TK9pAmFmnsZup2G8LTrdciiqAVwOlKSJFg/j8zRppaDzVWCvtCX8bcUwcvAu
u18urgRzlUd+a2uHMcZ2qZd3eyUcUVO6yPV3GItXR00OjJQDl1aUAIUyjGWn
0te43iqFACMvh1LJERS+2tsT5VAIHmd6TTW2jOD9UlPDO+8KwMlUXTNn2wh+
+s67evJkPpy1mBJLURzB1/sE/20pywGpC3aln/RGcKZrr8x/yRkQd1tni4vT
COqo5OrYDX+HT07ha6j32fcfyn+43ywGXrksMK89HkFtJzc/jtJIuO2aVmP7
cgQfquX1u0IYXHQTzPr3agTjRd9RPEWDweTRjSjT9yPo46Z/Ro/yDvSeVATU
B49gbtDMFZqfH6h6bH144vMINvBVpN059BTkPT3syyJH8DOH4fiB99dB0qvT
SDN2BHVtp++F+52Dtc8PQe4PNr7Kdb+lAx7C0otAedW0EXThm1FSk3kJNB/a
htSsEeRqPURvh7fQ52ewrFAwgq73E0O5rwdBSQBPq2zVCBbQJUQ7L4RDxtvz
v8PqRvDGNV3CkRUB39/nJoi3jKBp8W+HG2+iwe+DyzP+3hFc+XBrd2ZBHBh/
GVScmx5BzbK4xbDXqdDzo8SvQWYU34V7vncZy4X6CZ7xAztG8Wfp8YvmivlQ
qKBrEKgwin0ChgV5dwsgPK50rZnqKDa5WLqPLhfCxZiyV50Go3jxoH6sz8ti
GAqrCCDfH0XeLP37pf9VwIT/n/eLNaN4gut5XvWxBph3aP64020MNXoHuhJG
/4GJivXbve5jeDd95Zndih2QwDn0/KDXGMryXrytfrcDbIJn7sDrMaT+i3Y7
sdwBv0sl9Y0ixvDaG+PFs0Jd8GLLhSnXqjHcvYO+mK/QAxtaJwwqJMeRrh0g
ZvClD258vadVs3kcW8Q8SOT8Pii5sazauHUczTof//Lt7oN73EJynXvHcYWd
WbSWdD/8VVRiUbXGUVvizk7/EPa+5+cWLXZ9HCkhWT5+/gOwW3PVkn3OOKZe
GPaTPkdi66X4He2F41g92iql94AESsKnjY6VjaPvoWm+Ex9IoE4OjtrdMI7c
1pJ/UxtJcPLVrhO0oXGUbTLMHzk6BE5/DYMfrJ/Ati23Qq3Y+wlTi/57VGwC
HduNlxi6ZHiYEDR2TnoC+UxGmoG9P3i59xCE/AR66X3eEvmBDEHb7pC4iAnM
Jn2op3EOQ9adwAP+1yZQ5HJpvGftMBAdh6wWb03gj0LtFEXyMBTpdHnfcpnA
k29YHG3Lw1Altv3vafcJvEq5JmyrOAKdeb/cRf6bwGPX7ry+EzACHKs7/nwu
nMDw0oUQZ51ROBohcyVFjIKrEifNTXzGQCmYf3uZFAVvbNumVBg6Bltezw/+
k6FguoL9Im/CGMw9aLnIo0DBn//KTQRqxyDRyMfGTIOCt8tTu/8JjMMGzknT
xasUzHva+9fXdxw4ZrqE19+iYIJGBqiHjMP4eFXTdmcKyurm7vL5Ng5l7VFG
px9T0HnGTOxb8Tg8SDY3jHxLQUNtbs0J1jj02BbqHMum4JPH1rzx1hPwxzSR
26aAgsoCTyJ2X5uAzBOhRU4lFKyIypJ94TIB71RdND7VUnDKZk9ct+8E6ArI
q1P7KTi23J+lnT4BB1aIzHMPU1DRdUD8acEEbJrnzBafoOBxIc8VpysnYHao
Q1VrhoJmJOXnKZ0TEJ8fcPC/NVTcf3ldszQnBYLTHtFjBakY5FVb/ZyPwt6/
r6Xki1BxUqUHcD0FbIK09w1vpmLWRDfNTZYCQrdmdh1RoiJnGO1OrAYFli4N
jpw6TEWHM4I7LY9SYNSi4bsdQcXqiyEb+09SoEQ3fvtrfSpuWrMuwuscBe5L
28r2WVHx5Go9kY/OFLh4WvFs5wUqUku0G3c8oMDJZ5y+bfZUdAq7OfLfEwps
H4mcrLlNxRGpyJVrfCiwXurutsq7VFTd8cgg4RUFFk/qWZS4UfH8VrFes3cU
aE4bLsz2ouKdHImW4FAKFJKzptJ9qGjHZd4h/pkC8ZJ+8imvqVhRf1NRPoIC
nh573nwLpmKgc4h/wHcK3Pq5VBwRRsWU8/5aJgkUsBiqmwmLoOLmV3tkzZIo
oCPxdXfINyruJn9WXvuTAooGTraBCVQscz0W+i2NAlLu2u8DUqjYf/Iz940M
CqxKFS73zaCivoiRYkQmBeiDpDnvHCoy9V6E5OZQoFvs196nhVR8ZhL19nYe
BdIfWwTdr6Ji/eFoD9NCCvgPzC/ebKbiD66r0WXFFLh07PNlu24qRtA2+O9l
22pJGjWWw1Q0Qg/N12x7e78Q59kJKobXblFOqWDzJTKgZESnYqtjSMVSKQUW
jqZdNZih4lnzN9rbqigw7Ob96egCFT2pc0bD9Wz+zu6++pWDhsYLda387Pyc
p23g2sxNwxUmlxWcSyjQ6rPw8dMKGk77OBWN/KbACTmSsiQvDbNX2z0tKqeA
rM+LMMH1NLxtXXBZk40nWPa26mthGqoZouEhNl7+XPOGNWI0TMmknz38i11v
pprXfSRoWKCzpusG22ZRdq5YJUVj19+ajoRUNh8v13/x2kRDjBVOak6mwKDM
/CEuGRqOaKXxCrL5sMwZaHSXo2Gm6x3z2jgK1Jv8ubG4jYZ26wZznn2jgB4l
beVDeRo+AiuPjVEUyH0RFj67i4ZXzgSq63+hwAGZ52r39tCwepoUk/ORAt+y
bzUz9tGw0tmvfnsIm08Ts1t3DtAwJpZ3VjOQAu8mkJeqxMZzJZV7MYACT7YI
qY8epqGQ8ft1Is8pMJXFarmiTsMQMXTm8aSAw5l+RxJBw6Z7u+a+PaJA73gV
3yVNGq6SvSTecI8Cps9/RvZq09D1ioyr7h0KKIybrmkzpOFUU5x5tQUFMk0M
CnxP05DTqfYUy5gC2nlazsQZGg5t0nVnHWfjf72vI9qchlV3YyMt1Sngo8gX
73KJhrlKC37nN1JAOGTZRt6ehoI+Nt1+7H4O52Su77xKw2dK6Rt/svs9s7Hf
TfsWDXu8NFzXzUzAkEvu8fUPaNj6ocY4vW4CnLpSl0of0vB94a9sv9IJWNSN
TX3whIbxIsZnCrInQFgsSLLvGQ0jB8ol06ImQDvLcTTpNQ1tnbu83e9NQPii
rK9hFA2DDjyxNBOYAAV7CYLzGxtvgXTMQ84J+FUrQE+LpaE2WM5eY4xD7ZcF
C6kkGh7d8Oi5QNs4LGq27hzLYn+vcAucPo6D5XOfypd1NJxJsZw5KDkOQxT3
x+qNNPwyKb11hHcc7pjd209rpuG+i+v3fZwZg5fyl0LM/tFwS3FWvGPzGGRU
qV/bTqKhMg/53Er/MdggQOMtmaNhhZNg6d7JUWjM831xbJGG6i+7jnh1j8K7
G9tW1i3T0E9bbcKiehTWV1ly/+OZxJPJrlgVxba9Sxep/JO42zQm/pnpKAjO
h9I3yk1isF/l1hdJI7CWrNvpfGISbRcty5/qDMOf/3otWYaTaJK6W9NbYRj8
dR7+fXJ6EmeDFy+pCA/DmojkVh/TSTzD9/L7pwEyrLbe2PDFlm2rdHepsPUw
bxOttNp5Ekn5tt0HU4eAp+BjktynSQxJPGgvMj8I/9R19Hs+TyKHRezYgc5B
SMoe7w39OomiUvX09XmDYJkB69d/Y8dzvI33+JNBSEnsceFIncQBXNrYvDQA
Np/k1LrKJ/GU50HGy1m2fngQXxLEmMQs17zr9fW9cF0p5y/fCTrWhyXa1Gi2
Q2F9S0KmIR2VE5941Uy1gchNmvuV03RUFfHlv/CtDQqit20vNaXj2U0vGlhr
2mCD2Bsnj/N0bJ15rb+7qQVyWHZrZu7S8X77OyF+iyZYU8APg+F05N+ybqXs
6z9w/txOwfeRdCx9HvDu4Eg1pM9oD2jG0PHlnil8olMNtooPfL7E0zFA+8rP
r6xK+Pl1oMUyg468ZgaPPlwoh3NembcaquloXSw5qrKjCJK3NGl61NJxmPck
uePJb1iRNyG8r4GOAu8277/XWghJ07I5/q109PQYb83hKwDuK69W6ffRsYSx
Niy+IAvij10Mz2fSUbR5IJX/8A9QUpAhkEXHMxdWrPbKiYd8/t6Ognk6Pv7C
8ygJYqG+yVrsNwcDz+Y7TCxpRIFFhlS6JjcD9zXFR379/RX6gzuMi1Yw8NAq
a+oXz88wZW3xung1A/3/HOty9AqExxriCjrrGMgoojpYrgqAlXJtlSUCDDyd
98FQmMcb3qwIuqK7noH3z5f9k+G5BxLDJivKhBlYdKW9N3mZgIiqDZF6Ygys
XOGbNCPpBAqJjRrlEgx88p/De2OxZ0A4nX5UsYmBNmlHeG4Evgf2FiR5TIaB
B/bzJRUHB8Np1dpflXIM3OZrFj/yha0/Fk4wquQZqMLR+NuoNRJePD/qUHOA
gaeK+qFmMBHqQwnzRj0GCh5p0z7FkwUWjxenjY8xcNUJvnKKXjb02+a+bzrB
wBaR++IKPjkwtVWtrvk0A1OVTz0YXpcPEknKem2WDFw0MY554fcbLhYrKHXe
YuDkzr8HJd+XwfSYpOBQEAMf5llxtJyoh8AwcvmnEAaWcmwsOBZRDwdPpbmf
+cTAPLNvXWmz9XAn1ZBa+JWBmXs48+9HN8CEq0ftxwQGHrW16+VfagTSiiF/
oyIG9hNya9TjW6Blcwpf3gQDnbbbqbbT/0H6maPcgTpTqH4vNOymfz+8PJHp
LXV0ChWV0sd5U/rBSnsnb/SxKQyshNm3Lf3AdXDNuoyTU0i7e3ub4aYBOLm+
TrTdnG13piT0/BiA4fqzu6RuTqHQLvO4wOpBkDxpbxT13xQOX+nQK6EPwYRu
W5NC8BTy00NuGAiToRD0z6aHTmHv5VPdFcpksN+z61zZlyksvjTLdHAlw8+1
FLvh2Cl8lHo+32qBDAbVd10V8tn3f5zznloaBnd97y9pQ1Ool+Ru6D3Bnm82
V60UR6aQvOLMiobVY7D17gmJhLEpXJiXzJrfMQZVX4XeR9KmUJS29HXuwhgI
z4c9fzc3hYvT5fk32fPze2LGzdv806jzZSzd4Oc41K8fPqKgMo2ZOlzr+czZ
//+d1bPfDk1jb+hwhQr7f3YXf6TLHZnGI9evFKIvBSRvuOzbqDGNP6ZmM/+x
9wG7Ug651cen0faDDHFTmgqz9yVWD1tPY+3TWzsm/lJBput4e6T3NH56dkY+
7CMNfIuOJJm+nEZ77CqujqEB/ZvC81V+03j7GFWpO4UGRU78StffTOMj5TFW
fjkN7HgbAw58nMaVN8JKXek0+H7Q4ujv5GmctLh7NEJ7EgQljm9y/jnNnn/i
ly8YTsKDJbXprRnTmOrkrbTKbBKOV0pFvsyZxvdXHj8QcJiEMZvepVNl03jr
lfz9VQGTsNf3SkZ3xzRuDM+sD2yehCBH81dvuqfxwnB6ZWfnJCybHLPT6ptG
16tlZitJk1C/eff6mKFpLGsY6t8yPQl30ik3b05Oo+B93UElYTqk9d7dtrCS
iU4V+u19hnSQKrNfSORjIt+XLbWJJnTwjjdrsl3LxJ3O8Xesz9Hh7L3DT4uF
mBgqt2bt46t0mFmz2OkrxUSSev2x/57SQU3VK1DiAPvcRMBQL4kOrRclVMKU
mKgd8GrbwTQ6OL/+0bZFlYk3P55IEMqiQwKpXVJenYmBmzquPC+iw6bAPV9V
9Ji4a+aZi1szHbILirSy9Zm4/flifGE7HczGzAbhBBMPyO6HmU46vNHy3KF7
mon6+oUOW0h04JpsTTxjyUSHD60mTlN0+Cx141SbFRPPsoKeic/S4Yg+56Sl
LROdP23q+zJPB5cvu5Uu2jGRflngmjsXA4YMPbJv32JiubmA2GEBBng+ELGa
us2O999/ASrrGbA5Om7xvjMTeZK2UjaKMMB8oVnD3ZWJHgUXHsZJMqA6bmf5
K08mFkQ3v6vbyoCrrflXhbyZqPzbqnzXDgbwcJms/u8FE1etOpZyYycDCIsn
hp/8mdhY48yRvIcB/7w2UDcHsPGfqsrI2MeA+8nf30S+ZWLslCBE7mdA8qqm
prggJr69Yeqkp8wAg4NX7+4NYeIeUz8XlgoDRmwWRVM/MpE/Yu73h0MMkM3Y
YZkVzsSgdx5dH44wIL8vd149konBS8ptLHUGnFtnHFYYzeb3wolv2gQDAu0e
9ZbHMTE5OqM8QoMBNTkxcnVJTCQ7jeemajFg5YYG+9Y0Jg5X0xLu6DAAHeZj
u7LY/tQoRV26DHD9vW1iMJ+J5k1utXN6DBh1dHNmVDBxPrrokaE+A6w21bE4
m5jIVb9gYMe2t/OdGx7uYiKH+9sX0kcZQGUMtdYNM3HHfW+f6+z7TUYUTmpT
mBieMXU0gO0/s9upNIPBRLtT8vrm7Pgc/oo8vc1koq9++6pNyADp5kz1XSwm
Li9MnK8BNn+VSz/Dlph43b+Ru1+NAUolXx3NOGcw9OikvNFhBpDzdXYL8czg
WYXXD76rsvOZ5hvhxTeDO/viGoWUGLD0Y48NsXYGWV7K7bsPsPMfWy8xyz+D
X4YlVygoMkDki+jb68Iz+HPalnt0NwMqQrIMtonNoKV5z7sfbH7dAq14eyRm
sHdMq82azX+3T4S78eYZHD/HlLsry4DvLntvHd41g4LamRkpYgywdGzYyVCY
wTupnRcahBmwzsGFlLBvBhO5+0zbhRjgZJtttUV5Bj1rK6gJaxhw5LjeiVUa
M9jmt7XXfokOFJ2Rlb+1ZtB0c8/OwTk6hKN/kZvuDP7h2GZtMEMHHuXGw5Tj
M+h+vFSGTKVD7WYb+RbTGZxSt+9S6aWDhyTn4GvzGXzKaz0gwe6vgyJRX/TP
zaBs8oYXtDY6BK8eFc09P4MPVQI6LerocHH67orI6zM4/y4n3jKPDtNVr/pv
P53Bj4E3bTcG0aFzTcvVhWczKL4lnEPjLR2KDKSoL57PYJ3v9joTf3b/1sbN
f/Zj55ORts7Mkw67GsuFa/6bQTq3TXfyTTrY/OU8ujNuBit8kt52atKhjHw3
vq9xBuVNbCQZvZOQIJ+3/2bLDDZvK/787N8kvL/GkznbNoMbK98JCbDn4/mx
dyUCXTNoU9q3ZrlsEuYoSV1AnkE1Y6czdgmTsI85IhA6P4OM2r+2bncnIZjH
xsV46yx+mvHfX8E5CUuXxJQbts+iGOte46M59nwvrp8+tXMW3zaRzu5i0EDR
U/u+4d5Z5OxhlTkP0qBiWd5N/9AsZrYuXmsso8HMHMOdMJjFNyuq1Jt9aXB2
0sdvl8ssNll8yl4rRIPc09oGsfdmcdPNiU3X+Gggm7ywVv7BLMZ+fNFezEkD
yi3H19uezKKPdPzv5UEqeI+bvN3ychYl7S+tWfpGhTTy5g+in2bZelFTKmEv
FTZ0p0dwlcxigaRpyktNCrxe+/jxr7JZlPVVaf+7nwKrj+iY36icxQ/HFHm0
ZCnAFdy4rrV2FqM35uvt5aYA3YjqGvt3Fp1q/2aQ2fqrvlT+1Gkq29+NHy+U
T02AwRR15wr6LF5PSZst1ZiACtlfPNlTs2j0cGGV04EJKHDXzZabm0Xnd/4K
QqIT8OPwxW0zPCz8u1A7HdQ9Dv6JH+fDJNl2tbnnkbvjwNt5sdVYmoWb93W7
h18dB6/Vu1JWbWFhstI3CzmrcXh4JdP+zjYW6v2+qBuuPQ4OMi0NOooslPBY
V2cjzNZjpz4lsA6w0OBI4yCJrccuPrn04ocyC3kbO+59XhwDi45JdfEjLLxm
4lD5jDwG+v/xfx/TZeHD2lR9vbwxKClu8QzXZ6Fkk9xKuZ9joEH/ZG16goUT
WXLVB2PHQPXU7g0Fp1mYLu1wqeG/Mfa80n/y7hwLK8JK/5y4MwYRqgIWR21Y
6GfXrx15dQw22bceXDjPwm+0wKTd58dAtNhu5LI9C0uevVrfd2oMVjx+anL4
DgsZ7v915+0fg7TJcVaBMxvfjycq+3aPgZ29+Re9eyx8qrjTqXMrO75T+0bP
PGRhn1wtkS4+Bi4loQH/HrNQX0CrZH49e586vFL5ggcLbx05On953Rh4yXa5
3/Jm4V6OQ8YdXGOg9EF/2/QLFo5TPApGFkdhcE1a1UNfFu5J0QzazRoFnWlf
EZ8AFqqf+SV1mjYKU9eY2QLvWLh8lfu40vgoRHVfOB8UyMIfuszY08OjwFNx
KD4yhMWe99n5Kn2jkKYedXrXJxauvhCSxs3Wr3YpAszkzyxca8/psLJjFIS3
P/yo+pWF/6mlnNBqH4WS0CGN/Eg2nkjR4uyWUXARMB7SiWGhwoqGfzebRmGr
V55f9Xe2/yrLovMNo9A8K7/fOJ6FXKu/ZQfUjcKzm4Gt7YksfPbagHemZhS0
NLRuMH6xcJ1BevemqlHg2kDj5C9iYX7zv7vmbPviQpnBxnIWquhUVvP+GYUi
UtgH+T8svJ1sMFJaOwpOlnyQVMtCU59La9/Uj4JsnUu/cgMLH3s7931pZO+v
2r0vcptYyDGhPctsHgXPzBN7tFtZ6Bgr1xPUNgoH9vxqrGxn11cLqffhv1Ho
/yrrerqDhVL6aa9+dLH1vOhr6bYuFmY69t7ayc6Xlh+ryLqXhR27heqpg6NA
X7a7OtjPQnGdJhbPyChEuNSvu05i4XBplboNe3/mtPlm7jrKzoeLbhjXzCgk
N65fWhpn4XaJ3nathVE4f/RJpDeVhe+6JoraOMegUNGU8m6KhS3SB38Msuvh
dnThe4kZFnYel5JzEB6DLZIKh8NZLLy+OHdHfeMYeHBzeyUusdBu5YRA+84x
UHS9tVOJcw6Fm7nGw9n12Tv+tzabew5/Ru9t/32Y3R+tyRIVvHMYW/2ONXN8
DDhibZL618+hzHJuhhu7H8rG2259EZnDzkZ9RvejMfBXNNprJT6HIgemIebl
GIhlaie2SM8hQy8+9OHXMdhbLh9fIT+Hek1BcQrtYzC1OsLBe/ccessdmhkb
GoPskxt3ae2dw3bHsaBNzDHQbV0Xm3NwDnNt9ho2ioyDFYke84OYwxcSIo7f
LMfZeuCG/XXNOcxJPK7MdXMchm+QtsnrzKHVv+HZavdxcJ5qi/p6bA4tUue5
OmPGwZc7LyLQZA5Lvx8tzJgbh9NHVS4amc2hV/6Vg8OCEyDqlyTDbzmHr/sj
EoJ2TEDE+ojwF7bseHxspx3PTkCWzIvPbg5zaOr+u1wjewKeXOawUb05hxOf
H/K6N0+ATuwD6SnHOexzt+XTp7LnqeKNTzfvzqFyVGK73XYKDKNR6HkPNt6k
lOYtHynw41mVhfSzOTwfaMf1LYsCLuXaEv+853D6yTGBonYKLJ9UCT7jx8b3
RjY+SpwKojYbg/SC5lA1MsXtyBcqdH4NNOUOYccj91LidBEVIkjrRAo/zuHy
b7GXSyQq7LnJEXj46xxW1V3Z9FaMBjqPSG8VEubwTrTgkL4dDZxCk16tL5rD
yRSuqLdrJ+HXQuiLopI5rEtqqguTnYQFm+dPncrnsNlRdNfyoUl4IWd9t/HP
HF7Ss7P5bj8JnxJWW79rm0O3CkOh9tJJKM2/rLB+Yg7frC4SY76nw2oZo+1F
1DkUq6vu0GTrg9PP1Lc40ecwZuC/2L4qOvw7ukG4cWYOHzNuLu/kZgClvnD+
Ldc8NunFtNPvM0B8YGO1kPg8UpgyG/44TYG17qrS35LzqLz29M2G91MQ8Y2e
f0d6HqWHGnSU06dA4UZlaoPsPKoNDmZIs6ZAc/pe6Ns983jJ+WmRr/c0OKxq
vCakPY8lkWsblFKYkLf7Ja/QrXl8tOVkdIgZC1SaxWre3Z5H2P7G3N+TBcmP
vr0Vdp7HzEObr3YlsiCipkxS3HUejefzBZNWzMFLxxV7NnvOo53+81GO7Dkw
/ulptCdoHnUb1afKlReg+tx60aTgeWQWv2jfcGUBdHgi/il+nMfZ8EnjmuAF
UDX9fUkpfB6P3V/WfLi4AFIzy3ePxM0jb5xkVGf1IpDVHocey5/HnzaXWuQf
L8P5gbW21YXz+NDLWvxo+jL88/skZ1g8j1cOC7q2TizDn86chNMV8yjyYMvX
bYocROqTuXyzxnl8ynLOOR7NQTwquj9weWgeCz1vCfuGchJCx50UPPkXsI5r
bZFfKjcR/ltgjZrQAlJsVSNl/3ITiocTRyY3LGDSM5nyFRw8xEn54ZgLEgt4
rvQuX9JJHsJ3pY2M5tYFvHBby+wDlYfgKT4myqG2gFdF3GNXa6wkmEdkOJ5c
XsDxcjmzKGk+wvtnfrfy1QXsMtfP1j7JRwjvtsqbcFjAb3+OvDrszkcclPzg
Zn17Ab1M32Xt6Ocjbs+unVZ/uIA/n/o2CiasJkbSZkfm37Dve6XJ7Xh6LdG5
p77pQe4ClthMCgR3CRBfxoQecxcsoIxyk0zZakHiYuyZ7a9+L6AG5+vSke2C
xMjWNtfwsgXMojhY/bAVJJgbu6XL69nxOj0+oNQkSAitHr8iTFpAyzy8Ylgk
ROgNrVr4sW4R40oGhr//3kDwRR2LPiS4iJpqZkGbBzYQfy74nSxav4jd2r2P
S3mEiTNd/F9bxBaxQXxyIFRfmDjfLKK3ILOIVhv5WPcbhYmHRXJvjqks4oq+
JbIQVYRI/oxbB20W8QXdaWuxgTjBcGOsunBhES+t+e7zxFmcUDH7NtZ1aRHr
0/2eOISKEzkCAj/bri7iykP1ti3D4kSZR7dmtdMizp3evn/2hQTRcfGxberz
RbR5Ghz4X50ksXJHTqjHj0VU3bx1TMpbmjjG7fhkMXkRdSXLpPanShP+PbIX
3X4uYth2/31uPdKEULDvTpfMRWQZtPbEq20ipPgsM68ULSIn5+foN4xNxIGx
2ZaTrYt4K+bGhULVLYR1koqQ9NIi8knt2HS/QobIsJzlr+dYwoeZAbqxgzIE
/8rstc+4l/AFn13JAocsUWgFvCO8SzhYefP8ajVZQna1znLahiXc47ElJy9R
lhiyM5ow2LmEP8Oruj59lCNuSd6ofGSyhJxRUXFtb7cRZaV7yveZLSHFMmb2
Zuo2YvMdakm/xRKWrpd5I9+0jagvdyrUt13Ct/yKq9eKbCcO3H3wS9hhCf9O
SIq9Dt1OzNQ9j05wX0K514pJbxJ2EB7eX592xi3htuWvFfsndhLr7q86fiFx
CX+vJE+vENxFhF69uX4oaQkP/WfdsXBgF/HzxOFIatoSbs/UWmv0YBcxJNRQ
wlWwhBFuuxuCV+0mTnzm4N3ZtITDJzy2pe1SIER/2b6+O7+ELIaA7ke/vUTk
99Kzc4tLSOp9e7krdS+hGLp7szvHMj5drDTU+beXOPZ4JunlimV8fvTXiPvO
fcQj7YCGjwLLWCuudCylch/RX5cvXCS3jFlbBGNevFQkEoelP/IbLOMKinra
xu79xMsw7/PdJ5dxpuWN0XfmfsLOeGLbD6NllIxuMDYUOEBI5eYmG5otYzz8
terVOED4Bpwr87+4jEeub6/ZHX2AuKoSMrn6wTKG7tsZctHpICHrJay/KmYZ
SWWphfGblYmlQ4/WtX1fZutXW1eLI8rE34mBxpj4ZXS5+mmrjJky8cbsp7Ve
yjIeHLGRXXqtTCzvMnb2zl3G9GvrKmjLykRnQ8Bn7qZlrC+NDyoaUiEyn89c
ampZxuGlPjlhHlUi8Ijtzsj2ZTwtQsh7yKgSJ6L3pml1L+OpwCdnvlupEtmu
NZVPR5aRWS4xotasSgTtUQ4wGl/G5SSJyot0VeJO/ycTGeoyfnaSn44WPETI
G9zoKZxaxu1yD3Y8NjxE8HA2R72ZWUarae8YoRuHiN70Iw7n55bRpElk+2/f
Q0SuQ+Q+xcVlVButPegfe4j4sHnN9PIyG3/8/odOFYeI/wFE+lZs
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.5136171448539*^9, 3.5136171584890223`*^9}, {
  3.51361728922405*^9, 3.513617300118826*^9}}]
}, Open  ]],

Cell["For 2 <= x < 4, use rational function approximation", "Text",
 CellChangeTimes->{{3.513559266263825*^9, 3.513559297799584*^9}, {
   3.513598027831278*^9, 3.5135980301019783`*^9}, 3.513605297302388*^9, {
   3.513607981785606*^9, 3.513607986858301*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"EconomizedRationalApproximation", "[", 
    RowBox[{
     RowBox[{"g", "[", "x", "]"}], ",", " ", 
     RowBox[{"{", " ", 
      RowBox[{"x", ",", " ", 
       RowBox[{"{", " ", 
        RowBox[{"2", ",", " ", "4"}], " ", "}"}], ",", "6", ",", " ", "2"}], 
      " ", "}"}]}], "]"}], " ", "//", " ", 
   RowBox[{
    RowBox[{"N", "[", 
     RowBox[{"#", ",", " ", "17"}], "]"}], "&"}]}], " ", "//", " ", 
  RowBox[{
   RowBox[{"Collect", "[", 
    RowBox[{"#", ",", " ", "x"}], "]"}], "&"}]}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Abs", "[", 
     RowBox[{
      RowBox[{"g", "[", "x", "]"}], "-", " ", "%"}], "]"}], "/", 
    RowBox[{"Abs", "[", 
     RowBox[{"g", "[", "x", "]"}], "]"}]}], ",", " ", 
   RowBox[{"{", " ", 
    RowBox[{"x", ",", " ", "2", ",", " ", "4"}], " ", "}"}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQBWIQLWgh7DJF95WjQMwzdxDdY3zMH0QbxTwF09mfFkaD
6GvxOjEgei7znUQQnfDVLB1EL5hzKQdEq4lx5oJowz/rS0G0rmpRI4jm7g7t
BNHvopZ2gejilvkTwPI5P8H0+eisLSBa7JTCHhD96+eFh2B63tuXIHqWi/QH
EP2i/xCYfjJpxVew/f7+f0D0BNEPrFOBdMFWDR4wvU9XFUQ/uMGqDaJFQ9hn
rwbSd3/dnAeiA+L+rwTReV42q0C03vZzm0H0k6ZPW0H0bunXe0G00/5PYPrU
8SNnQPQX+xPnQbSz5ZrUjUDaj31DOohe7BOaA6KPzT5ZDKIB7WKsMQ==
  "]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "0.75561412175512671047195611021453739194`17."}], "-", 
    RowBox[{"0.47679270789600670216227267326536307822`17.", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "3.`17."}], "+", "x"}], ")"}]}], "-", 
    RowBox[{"0.05495934989391578318849030661271079384`17.", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "3.`17."}], "+", "x"}], ")"}], "2"]}], "-", 
    RowBox[{
    "0.0023513476270810808183124062154374099747241809176372575175`17.", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "3.`17."}], "+", "x"}], ")"}], "3"]}], "+", 
    RowBox[{
    "0.0001640348604087297307858663275770935534251843140772051613`17.", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "3.`17."}], "+", "x"}], ")"}], "4"]}], "-", 
    RowBox[{
    "0.0000121925520845613883539471128403874243437884998360160943`17.", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "3.`17."}], "+", "x"}], ")"}], "5"]}], "+", 
    RowBox[{
    "6.20248845109966721382879040217061521636628284930703`17.*^-7", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "3.`17."}], "+", "x"}], ")"}], "6"]}]}], ")"}], "/", 
  RowBox[{"(", 
   RowBox[{"0.9539860008986931658813235494527122428`17.", "+", 
    RowBox[{"0.22651058466352913573094852339183291298`17.", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "3.`17."}], "+", "x"}], ")"}]}], "+", 
    RowBox[{"0.0205188841026749594122842534391307292`17.", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "3.`17."}], "+", "x"}], ")"}], "2"]}]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{{3.5136055396325502`*^9, 3.513605552028109*^9}, 
   3.513605617124262*^9, {3.513605738892075*^9, 3.513605759157044*^9}, {
   3.513617198029579*^9, 3.513617214192213*^9}, {3.513617253516515*^9, 
   3.5136173117920094`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVVXc81e8Xx93XuEaUKEoqDaOUeW6HohQNEZH9RSmSUhKSEVEyI8K195aI
VGS0qAgZRfaojJtE6Xd/fz2vz+ucz/u8x3k9zzrb84b2PFxcXJ+5ubj+fyq7
epI4B/4YbMu8dFWamc79K1GLmwujbMomDztLM1dEXdztz8OFyX3iO1VtpJlz
D885kklcOJAfurRbT5pZumT5ko/Ohctbj8t9FZdmKgbtvSO+ggunuuWCs65J
Mbcm8Ynu3MyFdiUuUXFr1zLXv0na4HCUC8ue7mw/miHBlNRZ/6ruGBf21Kv8
3BwhwVxZm3Fe6jgXRixG1Il6SzD5ivMfdxlz4Q4xHpKcsQTzV9Tjo4fMubAw
PMRiB1mC+ca8w0vRgQtvqUW65J5dzbw8yf9x8RoX7v6ZdItnrzjzNd078G4W
F6q8i5exl1jJ/M0YUp9d4MKP50s8G/1EmCLDYcyaA9y4kbkrN8tCkDn2YM5f
L5kbhwlrw3ZH0ZnaEgNrBKe5kXTzubTgORLTxCv49/39PHg4WsciyI+LKSmn
WDtzgAe720cOFbpyMfs/dvrpHeRBttqA64AlF/O0wia+3/o8eGeFQ/5pDS6m
x9eGtaaGPGhPLvi2PP4P4g4Q9olZ8KA7UehcSvsydK3wCYt048HnUT1KjOo/
cLLgokxoIg9O/pisZb9ZAFVv57evk3gwc6PzU56SBRAzcLzCx+JBLvvL4+ti
FuDDlNnrO6k8+GG3aWCaxQIc3KZ9MTyLBxVdD8rG/PgF6nmC9TElPJgudr1P
deUvkMwpsGU18GCrjMBLH/ef0J8+mvLwGw+KpJwvD3SeBb1TY6ZCP3gwgqj1
9L7RLJSKjDOcp3lw00VUaNCYhQC/Ce8Nczz4Y6OktC19FjZbfzsZtcCDEuKs
swXZM+AqMSd0gUDAsXIjt6DxaeCOXL6xTZyAc0b9HboL38FJ759q8GoC9uz+
2SD25ju0c3FND0oQ0PnPdKYI6ztknue2TFhLQFWqoNqdA9/hoAFRnb6BgPdT
+SJiE75BJJU+OypPQMdSSuqI3hSsvy5qm7aPgIbmm7/ONY5DxsnTy6M6BNyn
cuNdfeo4bFaujt+2n4CafZLRj33GQX7cuu2hHgGpMhuM+FXGQeN4/r7mwwTs
Urgs55wzBkab9m76ZkpAXj5jEd6YUbjZ6jq125mAf29Vj8sGDQMttz74mgsB
3biGZK84DsPtADHZZ+cJeGluHkb3D0OkWo2FnhsBVSgxVxVow5CcRmk1v0LA
TEiZP31nCCqvJJX43iDggW+ai3sfDMK41JvLr2II2OYZ5mPUNgD5NNNiaiwB
76jXGDpWDoDL3OC4bhwBxeNveackDgC7celUfTwB7woaGP13egC4XLburUkm
YG9PgonDv34QqwlhFOYQ8Kmd1VHVnf2gbaqXHfGEgMTXz1KWbPuApP1xoLWW
gLOeyvfqlPugeauNhMAzAl79EVJTSe4Dg38eYSF1BLyoIdBqldcLppnZl/yb
CAibWjdZ/+qB82yKlvt7Dv8RzbOk+G54EN74yXSYgEZJYp7baV0wYXNSunSE
gB3S/TIJnztBdeeUA+8YARWDP3vuL++Eto9C7CcTBAwmi+oZWncCXcJCQGaa
gDLvMmVPV3eAR8ac9rdFAr4b83Xg9f4Ixx9L598QJOKetJ93+ra1ASu0bLZb
iIi9W2/oNdDa4PspXTVlESJ6tvLw9I98gJB/ZxtHRIloF789pCnlAzzb96j/
kAQRE8vFZVVWfwD5VgNRsY1E9K6RqPtP9D3Qhzx9cjWIKP9N2PqZQwu4dVnl
TmkSseWJwotypRbofrOvQ55JRMXCQq6ZP28h56GAfBkS8XfdckZg9Fs4EJTa
V61DxP8KfoaWNr2BoC2vNN8eIaLJX51VY/AaiBfEl37YETHjWGSdqmMznLNf
3rjDnjP/yNFdTprN0H5y0PCSAxGDns5Gzwk1Q5p2Qe7CaSJeNZN42vqkCbRX
aJlxuxDx00XacQnxJvB9dLpK2IOIowb1eL2vAf7+fXRl120ijrxyY99OqIfp
T2nFkXeIqBmntth8uR6+Prw7/iOM823sP+psWA/Nzo7muREcP4RtH92i10Nk
n9geqVgilop2S57xqYPNT9zJtFQiyljcNqFdeg4S9232OKQR0ZgZxCIYPQcB
dwOP+nQivpZdzXdc+TnMbZOd8M4i4ke1YuLjn8+g9kH729l8IlpRPBZeXHsG
Rl47Y3ofEZHv4/NFCbmnsN9UqkWtiojVWWJhhTO1oK7MS4l9TMSQ+T2GlY9r
QWrqq8exJ0SMKMiKdz5cCxPmkaca64hIchzKenntCfhqzMgUvyVi/YaNy3Hf
qiFvsbDUf5DDn61tXihXBZ+H24K7h4io9bnfa5C7CgTfL1gqjRCxzUk63LG7
Ei5lafN+GSPisX0i+9pvVwLTqMNO/TsRkzRjmpTnH8GHgr8rZhaIuH9x4fv1
ngog3l8/uX+RiLkx5RfGqipAJWD/86QlIk5rhPjdjKuAB2YRzvrLRIyOE77e
faIC7CmyjVkEEo6f0OMldD2EBWv9K5YCJKR5HWqKniiHLfoXDB4ySPjifduR
Cy3lYKFyT4ZPiIRlDQ3yfqXlUMff31olQkK15SDb+mvlcPvxxc2i4iT8r07p
8C+hcpBakfDptQwJ5R/m3+nSLwPDf0+L1suScDlZ4VTgrjIImBgKvLqRhAN1
8l+D15bB2DP5HZvkSPh609v/5GZKodS5LsRPnoTN5+M/K8aXgm7TuIaaGgm/
/KNXBS6UQORH618e6iQUYi8L9Y2UwJfBztJKDRIe6FdXUvlYAh5cjXKqTBK+
cRgzayotgVy11JUqe0nYRJzccty1BATyzeaUDUjYczA7XfZnMZg9fl946TCn
7oEp9SPFkNV8wKn8CAljtSQu6XcVAw7vHthpSEL+ebv+wzXF4LZWpHWHCQnF
dCqKdt0sho7w17mKNiTkCtd5F7++GNYnazu42pIwgtH0ZFSsGM4XVK0rtiNh
iOBKt5O8xUB9lRWn4MDRy+v/K2G8CNQJATflz5KwQ5Pew44sgptCS1ou50ho
AsuVFJ8iaJNy+1vgTEL7r1c/ep4pgnOa1pe2u3L8qU1bNNQqgiR3Tdtt7iRU
3xnnu5FdCBP+ZWvOXebwFTtw9fpAIahEbvmUd4XDz3/e4EhrIbwrXHV0qycJ
jewlAv3yCoFnjA1brpPwkVT7PWXHQrA3KxDffIuEJeE3OiwnCkDz6NavfiEk
/PSpbrG+uwBW6Obk9oWS0Pv8zvwVrwugTilDIyqMk88eMkOhoACkaYkWy1Gc
eVilpn+pABaWV288GUNCqwWNSzkOBdDKjvtedo+Ekw5a8zOmBeDTH339zH0S
zn8j8Q4yC6D30e2U9iQSju6NW7zKXwDlBXQnBRZH/xOfuze5CyA0LXhHSAqH
70rLLrv5fFC/G1C/J52E9T4RgcZf8iHWwWs4N4eES9wuYsPl+WAoek7uRjkJ
Dx8u7PI8nQ9beCdmeh6SsMDA4FyDVT5wc59+vPsRCd2u+crvMcmH4im7Q1NV
JAwfk9TI0c0HgRfmziZPSZj0+XX8nk358KTIZJmvjoSDjMRTZ1flw7mE43fr
XpAwLGGgdwM9H166HSrZ/oqEqUX6++V+5IGH5X7twTckTDm8gX3qax5sPLi3
La6VhLd6qtLJHXkQsE7jJ+EjCWNeiEWM1eYBvtui1v2FhIZM4tDqmDyQ4Xkd
bfOVhMVBhXZjoXlAVj47PTZEQr/L4o3O/nnwJjYv69c4CUXlVgkUuuWBqdU2
MVE2CW/8Yo4VHc8D1+/b545QyTg5PuSUI5kHuw1dci35yThDmeH9yciDPw8L
bZyFyRgtp9W0g5AHwd4K70IkyehaWWrjMp4LyXxKBQ2KZExo9Iy4WpoLcfxf
1vvvJCP5b2Li8dxcCBe4E4e7yTir+tVPMTUX/ATH/as1yLjwWqbROSIXHFak
mJXoklHnZuIZC+dcsBI98s5Fj4zBCn3Nz+xywVTsr842fTI6uHtvHD6ZC3qr
TiplHSMj3fvUdh2dXNgmKURNPEVGvlVWagKrckF2zVNvMysyCnq6j23gy4W1
a53nVtpy6rta49//ywFB6ZefIx3JKBJ05RlhJAfmZG48DHYj43RtWa5QYQ64
bjB1Hb1IRi/zGK4rmTkwtUFhq647Gb+1OmtLJefAkGwfi+DB0e/Jn+J3Nwc6
Nqnd9vEmIzPjyYmP53Pg8dYZ20vBZNxlNcv7bUsOXNbgrn5zi4xxCycW/qzL
gR2HhERkQ8ko3a90fWFVDuQ6KdV/vEPGX8YmmQ/IOZCQc0FGJYqMZ/Rknpn2
Z4PXptnB34lkfCT4yv96WDaoqvBoGiaT8e3iZA7bPxvYusLRuSwyjvW8WFj2
yIZzDjv2maeRcbe+GJvHLhssMtzSa7LJuG1CrsB/VzYwZeb+u15GxutKl1oU
P2bB4g7Ck85yMuZWp/5Jb86CCm0RUcUKMqaaRawuqs4CedudDf2VZKTEFs/T
UrNAKuWirHYtGbk9T8mOnssCLin2MPElGce9vKfZfzLh+eqfDiGfyVjc9tn4
ICkT4gxM0l9/IWPRp1+FnT8zwMW3aoBvgIyvcjW3OI5kwOoR71N3B8lYHa3a
Ot+YAW4lZMPoMTIOz8/3v7iZARsOrIKkWTKqXclTr+DOgCB3DZFSMgV/Twap
OQ6mgWV24tE5CgWvBywW4bs0UO75d0eZRsHYS3mOp56kQT++oD7ipeBLarV/
QmwaqPIZLFcLUnB4S++RP3ppMJFqOd6wmoLGa55LXMhNBYN3N55+kqegUFej
G/1kChROTNB2K1LwTJIKxGulgCDJyChSiYIryWGMQLkU+KC2cfygMgXTff8p
3f3NghNpr4Rr1CjYMPyjOSKOBZaXRRyS9lHQYmPpg6DUZHCVzOCzM+P0d+Rf
GrF+ANGnm09OBVKw40uAtYZ1DDAy/W8pBVFweoVlR6FcDIQMMqsuB1NwboO3
tNdcNNywfLiKO5SC/ccavzwKjAYXo9RO0XAKXhza4r0jNwr2o5fxnngK6psd
P7j7ewQsrlQ8FllIwSeSegrurbfB3XjSt7OIgskP9UinLW7DdGRmsWQJBcPs
JCKqJ0NhlH+NYFYZBTVXuZ9mk0OhnUBvra6kINuzj/808xYU/BjUH66joFLz
kbLmzECwboo9oNpJQTl553aur14gseK26JUujr7HJ/dI/b0GHda+Xx9+ouCD
3mNrgiWugf7iaa+dvRQ0WhJT9TW+Cirb1YvlByjo7CfiLfXKHQSielfKTlKw
eeR9zwVnZ3j55d2Q3RQFn8d+Gr+SfRYCtjWUpH6j4F6a8Yjf6BlYbCg4JD1N
wT3nyYPjVg4wvOBzXeInBQWEyq6uTbcEls5FfbN5Cg7aHq7SkDUHs0hH8fu/
KBg0UUGvTDGBd1uPloktUvCTuchZespRCPXY52u8RMGaVWonr8ofBN0GVYPo
P5w83a59nlXYC9zC21e3/aWg+3hZZa6LKtRYrhsV+kdBvc9hjQXPN8CVPNHy
o1xUpMdvcqtx5IMdC7Qbd7mpWBDfAEJXleDbvmWDFh4qTskcl8i6sgeyI2ZX
8xOpWPa9+5VUni7YfR4ZPUSiovii0dmH2QawdmtPeQiZindsdhtsOmQIUS/q
D1NpVNR9Y2PIu+ckHBaqlNhPp+JChM6TlY9OAdUyfyyQl4pkiYDP/eLW4PMr
2o8gQMXKxKa29lA7cNriULEsTMVVGmUHa847war53MDJjVQ80vld3/alJ1hu
ybTS2UxF74ra+eDSa5BumaKWLEfFv3zGTYz7XqDQFPvNcBsVV7TZrLZz8AHd
uADjx0pUnOUZf3V32Rfc1S1lb2lSceD91XzDmwHwwUeoYaMhFZsTBltTzUNh
VRlfsu9xKu4VuZus0hQKlqOUq91GVCxascM1TeE2jB9Z3hZmQkXZn6pvzIl3
gGvdZPTPU1SMDSeTV2WEgXz9i/9eOFLxeOQqGbeJcAileBBtvam4JUd4m+xM
FExYNtSn+1Dx6fSB+jTJaDhYIew/ep2K3BfsIhT3RwPdvoDb2Y+KRgauy4cT
oyGk7uvylSAqPgoezBPRjYFb3ga/70RQcZuDpdV/t+/BWHt85btIKgZGbf2U
VX4PDmwbuyISTUXCiHLHYs89oPb4zcfdo+JOnuveA1tiIVi1ci4tgYrFft/q
p1/EQtDc+u9VGVTcXHcyPPtbHIwcdC34k0nFXkdxbj6h+6Cb+uTcnmzOvC9H
Ryi77gP5mOnki1wq/nri8u7stftws/DOWGsRFVtaChfDSfEQeGbh63AVFf8s
ijMt+RNg6JlO6uZqKiatxb8btyfAvlVRNmdrqLhOq4u/QT8BiE3b+6drqWh5
tcm4NiQBAjbY9S3Vc/x3b6UYER6A/5e3nUItVCwkbUkpHX0ALmvXp59vpeJb
rd9c+qREMLW47Pr2HRWdT/pKOa9PBPmetbRbbVQcljt29Kt5InR3nFfn+kTF
oAaJ76KvEqFB9AXZspuKprePLNoNJUKx0aq26h4qbn+WEfZxORECPzw7e+Uz
FSXjukwadySBYotQ4vdBzv5MiR3NjUkCCX6HM/rDVHT7uXj6YkESkPUf78od
oSKXw2yMWkMS9Ly0bbEfp2IkY8/M1GwS3Gwo+9f7nYoT1xd7zx5Mhr4aY9vX
v6moWuL4JGgkGZqXcuTllqi4Run85W2/k6FUfXnx5h8qNsjylmwksSC4MjNK
+x9n/xLWbRsSZYFy+a8XVUQaJp9XFwzcxQKpuUMRK8k0/GzoF92tyQL6DpaF
O4WGL46HumvvY8GXogPzinQaFhjL9vccY0FI3v1N2Qwaqr2E9YfOssBaTvuZ
nTAHj3LkTdBlFuzKmjCVEqVhrphrzuEbHDzZqJnulTT87RXAnAthQX+qRsi9
1TTk1kgjjEexoEJ6aL3hGhpqN1cw1jxgwe2k29X80jSc7JLfeSKNBbaSu4xe
rqdhU3ZgPiWXBSrxfVMBsjQk0ZR6aotYEMp7QA0Vaaiu6Ld1fy2Hr1dp4JI6
DT9cQqPqpyy49XB060mkoQLj6k2Hahbs/C75oUKHhus+2fDXlHH8CVHJsD9A
Q6NJqcT2Qhb0bTT0WHGIhpX3wXgomwU76s8dqjeg4ccH6veEUlkQZBW01u0o
DbP/imYOxLOgdyllRvo4DbeWXO89GMkCpbiaF63GNGwGYad9t1hwU7kz1seU
hpHR24c6fVjQ827Gabs5DZ08m/45X2IBWep6e8ApGhoLdYaecWGBojMfs9eC
hlnWz197nGZBIG2TUKg1DZ8Rq9b2mrNAQfvUozF7Go6NVAyLIgvMwsel0ZGG
bZavnUJUWRDw+XJI7GkadkqFsKcUWfDJM8JC9ywNlXTJok+lWeBf1khId6Wh
/vaan/+WkqGQ28h56QINY1bed/8yngxdRwY6DC/ScPGGguyWzmTYPrWUw32Z
hiJJS17cxcnQuUHpqNU1Gvq6pqqJWSSD5D3B5GQvGp7UXOUveCAZrCnT3754
0/DNdFzyy53JMDFeGGrtS0OJD60H6qjJ8KdwW5NNIA0ZNQPCy4VJIK22mfnf
XY5+MTqP7Hgi/JdLuZMezsl/74X5Oy2JkCMx2jMUwdFf8GvXrbJE2LGccdU+
moZUZsH1LK9E0KmXeehwn4Y59y2mvemJ4GQgte1MGg3jwjuiD4s8gMLaZc+c
dBoqNgbqTcwmwJzC55fjGTR8dImsJ/4hAbyEEx2dsmnI+3xd/EhYAoR1rk47
W0DD7f5qPtzEBCizEVvt8oiGJktGnTq99+GPOz/14msabgixOai7NxbetMzZ
tbyhYfivy8LlwrGQsKn7qVwLB185ttx54B6of8q80v+Os49v5JJUfe6BhyaO
GnRw9NImxu+UxACb52Lj5gHOPjc2OUwRomHqblfA53kacgXT/MwMw6FmrLZf
bYGTp1jZ0i9hznuglaEZ85vT3yRSk5t9F7bMXWAf+kPDdwkXgpjZYXD6BO9/
Vdx0JPFrXNuafBuGJJl7o/no+LuiE9ZbB0NvThr3wfV0NMv0Mo719oFG2V7t
MBk6fmB/Vxi38oailBUBHzbQcfjpq4EU9AK/+4Fk8010/Gr5ZX/Fn6uw+ZYj
77ltdBT7bR9UY+MOwiSWfvF2Ov70SG6v2n0Jlny77rDl6Vj9K40Uxn8RWjz0
BL2V6ChoYxqqX+IK7qe3iobtpuPHCKbQiQ+OYDlkd+KDCh3vKzQLKNvbwwHr
B7FianTMy3HZ6/HbFiRN+Vcna9Bx17eSt/Gyp4DcrmM+qElHxz+z77+omsCP
Iz4PNjHpyCbXbgndawhdryv6zu6ho6rnGRvz6INQt//H2mKkY03fT57w+wj5
9Zus2Vp0HPlPp/2j2RaI2WOdorqX4w+PxpolAUnwqY776rWPjpe1rsqrmWjA
aZX3Ms916OhR87VU7vV+MCyj2ZP20/HcF70zXjzHQENBO1PvAB1TPYZ3Fsqe
AIFNZZs/HOT8/zbnEJ+mNSykTp4R06cjgSb/J6vNFgbWbsgzM6BjdEgpg+1m
D+ViMdsHj9DR4cNwWXeJE5iTr+xgG9HRatLG5XmeG2QPq2uKWdHxccW1lfci
vEErve6I2UU6Gt+weCS4MwScFJTl4y7R0Zf36vTMZAhEP87g63Cno/UlQgw1
IxRG3gW/POZBx0l9ybdB4nfg9t/De/W8OfNilRsVSeHQcaJnt2oQHbdneUsd
JEWBE429RiyBjjOfD/09onUfIl1kp97X0VHnm8sE42gaJElov+IT58WBDIGB
A30loHB39I/vGV7O/WCz1Bj1GK4N616ofMaLmTUTBdeC60CfR0FdTpgP5Xc9
nbOfbAL6D7Nj3LZ8WHMs36q34i3412Lug0o+vCx0WKbe7APcMCoyuUDjxw/n
+cNCeDtA/W2nLs2GHw/GGyiNpXXDF9F9AdRH/EgIaF/WHv4CNFk1MS2KAMo+
KzRpbv4K38XGxjUtBbBSZ+lLxeERMG2VEnYrEsCX7X077f6OQ5FJQrDAPwGk
h780ne77Bs/r3qGLMQOf3LWgbheageBqQkbxCQZ6pV1x+7lqBg6X76bNmTCw
5EKxeq30DHRnPHh/xYyByuZBZVqKM8AOPm17w4qBVbvoRLkjM7DxCFdA9BkG
vm3J2+N0ewZu9yg0Pfbm1F+d6NEkzoJhu+3Wvz4MfO6rYnKPdxbE38bc3ePL
wLom9p0J4VnIrF0yeeHHQMGqnW9urZuFpylNY2+DGJi6blQpmDkLs45W9IEI
Dt9P0eoxV2bBlB1mQMlkIKtFXV93eBYaW7QVz2cxUH1vuHzh1Cwo58wLd2Yz
0PU96z2DPQsMS8uuzDwGCtN7RB7yzEFj03Y73RIGLrU4iERIzcGuhDcegTUM
bGvJivIwmYNUd1/zb08Y2OAXGKVjOQeCR5WZxk8ZOPSm0J3Xfg6miA8IsnUM
lG3U+urmNgfpLmfDXjQxMKKfh1p5ew6EtenphDYGuk9++Mj/dA58JWtvnm1n
4LWi9U7rGubg+/yFM20fGfj4YovHxtdz8DLvk3xaFwNFz2vd5+3k9IvmVGl/
ZuC+Ba41O7/PwY+x/a03xjl4Vd5zXeJsOFW/VDI+wUBxiqeFgBQbXiUWRR+b
YuCj9pxUpQ1syDRcabbuBwM3HJlm6smzwbJmZOgZm4GedVZbHmux4c29+KbN
8ww8nC772kmXDeoXDueG/+LkO3ZqWuAQG0Q3Vpy3XuTkWaoyvN6IDX5cTobN
Swxs7JXvDTdlw3T3ml2Kfxl4/Ehr1I9THPyH71fGLTOQsDVdW9OGg383cPHf
Pwaa1OyuuGrPhv8BQ9xISQ==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{2., 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.5136055396325502`*^9, 3.513605552028109*^9}, 
   3.513605617124262*^9, {3.513605738892075*^9, 3.513605759157044*^9}, {
   3.513617198029579*^9, 3.513617214192213*^9}, {3.513617253516515*^9, 
   3.513617311831327*^9}}]
}, Open  ]],

Cell["\<\
For 4 <= x < 8 use rational function approximation\
\>", "Text",
 CellChangeTimes->{{3.513559301726983*^9, 3.51355931363281*^9}, {
   3.5135593768276873`*^9, 3.513559377114642*^9}, {3.513598040283778*^9, 
   3.5135980422281647`*^9}, {3.5136053578851547`*^9, 3.513605360573195*^9}, {
   3.513605522002228*^9, 3.513605522120688*^9}, 3.51361732941228*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"EconomizedRationalApproximation", "[", 
    RowBox[{
     RowBox[{"g", "[", "x", "]"}], ",", " ", 
     RowBox[{"{", " ", 
      RowBox[{"x", ",", " ", 
       RowBox[{"{", " ", 
        RowBox[{"4", ",", " ", "8"}], " ", "}"}], ",", "6", ",", " ", "2"}], 
      " ", "}"}]}], "]"}], " ", "//", " ", 
   RowBox[{
    RowBox[{"N", "[", 
     RowBox[{"#", ",", " ", "17"}], "]"}], "&"}]}], " ", "//", " ", 
  RowBox[{
   RowBox[{"Collect", "[", 
    RowBox[{"#", ",", " ", "x"}], "]"}], "&"}]}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"g", "[", "x", "]"}], "-", " ", "%"}], ",", " ", 
   RowBox[{"{", " ", 
    RowBox[{"x", ",", " ", "4", ",", " ", "8"}], " ", "}"}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQAWIQLWgh7DJF95WjQMwzdxDdY3zMH0QbxTwF09mfFkaD
6GvxOjEgei7znUQQnfDVLB1EL5hzKQdEq4lx5oJowz/rS0G0rmpRI4jm7g7t
BNHvopZ2gejilvkTwPI5P8H0+eisLSBa7JTCHhD96+eFh2B63tuXIHqWi/QH
EP2i/xCYfjJpxVew/f7+f0D0BNEPrFOBdMFWDR4wvU9XFUQ/uMGqDaJFQ9hn
rwbSd3/dnAeiA+L+rwTReV42q0C0d8b2LyD6597I7yD6yU+Lk2uANNOJNadA
tOD21NKNQDqyswhM/9icVA2iH/3fUgOiAT8Do+A=
  "]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "1.45603996936424037698736562265377205681`17."}], "-", 
    RowBox[{"0.47953110077434265930372406700546338892`17.", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "6.`17."}], "+", "x"}], ")"}]}], "-", 
    RowBox[{"0.04024706974273871739282911826402631696`17.", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "6.`17."}], "+", "x"}], ")"}], "2"]}], "-", 
    RowBox[{
    "0.0004399078748152991246168818360657553412432334066046254181`17.", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "6.`17."}], "+", "x"}], ")"}], "3"]}], "+", 
    RowBox[{
    "0.0000124240714351592431674992851473141443065795087415688774`17.", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "6.`17."}], "+", "x"}], ")"}], "4"]}], "-", 
    RowBox[{
    "4.662396304672378643312694483651279909756279267090923`17.*^-7", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "6.`17."}], "+", "x"}], ")"}], "5"]}], "+", 
    RowBox[{
    "1.37763232490967282857828668680295604280461839165934`17.*^-8", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "6.`17."}], "+", "x"}], ")"}], "6"]}]}], ")"}], "/", 
  RowBox[{"(", 
   RowBox[{"0.96853939300829809522919123523692216994`17.", "+", 
    RowBox[{"0.20176872873568395486390604631524599479`17.", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "6.`17."}], "+", "x"}], ")"}]}], "+", 
    RowBox[{"0.01107664730410534867648585722175403732`17.", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "6.`17."}], "+", "x"}], ")"}], "2"]}]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{{3.513559118764814*^9, 3.513559137488851*^9}, {
   3.513559337794989*^9, 3.513559384476706*^9}, {3.513605343685297*^9, 
   3.51360536731735*^9}, 3.513605459316492*^9, 3.5136055262729273`*^9, {
   3.513606056194405*^9, 3.513606076509849*^9}, {3.513607756722471*^9, 
   3.5136077660671797`*^9}, 3.513608008642021*^9, 3.513617325290505*^9, {
   3.5136173747948313`*^9, 3.5136173833459187`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxF1nk4Vd/XAPBLgyEkGQoh8xSSFFonqXyjlDRRkZCkQqWSUjInylSpKJlC
mcd7r80tkjJmSgqXJFMiGonXz9497z/p86y111p7nXM8ltu5WhzhpNFo5jP/
/O+njpvnPBpN0HDmv3Hzn2hRiRw/YzdwzFrweKQWJRx5RteXc9bmExe1qLH8
E0fnz8P5sWZaVM6EzSs+3ll7sz5pUlqBG0OXCuO4arAGpfaAT2SV8qxpOnzq
1D3Na+nuKrNm5/aqUbzP5hkXqM6adf6ZGjXwceqc3opZ2746r0alqIy2rtee
tWHAZ1VKMb85Zts6fP5bgwolW/1A3tEcn1dtUaIkN8u+fr4Tn8/OV6LESpJc
pXfhec7eUqL4sp4yWvfg8/l7lKifkQzzrQdwfO47Rar6QMslLUd83nFAgTo3
yN/85yLuX68jT7k5hHvu88L9xCTkqePtwjJ5l3E8lEOesq2TOH7yKq7HWSdH
bc1V4WAH4DjXCTlK5uLmFS/C8XnZDFmqitfL/+ZjPM/0juUUO9lCsDkF989Z
t5waN1K+L56G4z4qyympi41ZSU/xea85yym3QZUPzGzcr6FIhhKtbtHuY5Ln
oSxD2YVqsQ3r8f4l10pR51XmHw94gy29RIoKefH+e1UDtvmvZVT+34AF+5qx
9enLKG6Xdt2TbbifDCyjMrYHh97twf60TZL6vbBH/9sv7LZr4tR25je7lX+w
HV3FqXhHjutuE3ge4T3ilCmSej/8F7tBRpyKcba6OMi5aNb19KWU4YtaZg/f
rFn3R5dQAZ70dW9lZm349JwY1aZQ6SAqi+PsQ2KU5puWkD1ys6ZpmIhRrUrj
HxoVcD1hSTFKpVnDq14Vn+cuE6WqNRPRKx0ctxURpRZ/ukEVb8HnQ18LU9/O
J54RNcVuzxOmGngZKW5bcb9ND4WpMK1PQgrbcdzSXZgSuGTwOXQXdrC0MMW9
uO/mIRucP35hMTVluKGL0x33LwAhqi9mzNfkIe7/Y3Qh1W1x4EFIHD4//GYh
9Z67rKjuEfZU9kKq1j3iy55EbMfTC6ncbSv32aViW40LUJcnXVQv5mInTfJT
IgcH6p++xPVpUnyUkUTXMsER0i+Wm6oo2rHZZRT7mzc3Zbq35ET1N+x5DtzU
rvD7zKDv2MdUuSkHrr1WHBPYWkVcVODY66hv84Rm+yW8nU9VV+UtaJbAzlKY
R+27FPT77n/Y+RMclKSKVsnoFmyeHg6K3fzWx8QU262ag3LSVOL7vW3W3mdi
OSiP7hdSlhbYpoYcVPSWOZtErbE3XqNRrcKXb0ScxudPm0+BVfoZueux2B+0
f8Nar5M1VQ+w6QK/QdTs6Hm+ODLfwC9oGNpfFRqP/Tv+F5iqG50Je4zdL/wL
9J8Ilt3KxqamfoBkarpd3Avs3N5x+OPxmK+rAntlxTi0bnlUsLwS+2XSOET1
RfEmvMbec2Qc+JUv5STVYbM+jcFUsinnk3fY04PfgJ34+VH+F+wB/lEwOdhn
uegr9rXhEchZ3L/w5Aj21roR8PMZ8JIfw14VPgLKtl+sIn9hR4mOgJvE2KJT
cxbPWnDHMHBETF1VX4qtUz4AzibTa4PEsfNCB6CJRhv5KIHttm8Akl05bO5L
YWcN9oOp2Vx9XnlyXqwfIrh5v33WwDb1/AyyV0TsEjZhr3PrgSQrp6nPm7Gr
N/WAsg7znvp/2GFLe0Cj37Yx3wS7qOwjGOx6uqlyO3aU+EfYrbRR6YsltmND
FwTUuQ3pnsRmNXYAT1pZ0EUXbPXgDgjxE1VguWLTNnRAhF6xtclpbHZmOzxM
4Ko7cJ7cL+IDFJ1/kO19ldRzboN+6epzr29htzq2wFMeyyzuO9jCai3gMvax
3zgaO+VrM4xXTBwsu4c9eaEZaC5qG4sfYo9HNIFocfDCjFRs5ZYGMLI0SQlH
2HGGdTDPqLmrroT076yFSrXDEgIs7OgrtWA27XEj+Dm2+bMasExOcfd9SfK3
VYPrONeGs29Ivu8riAmreGf5iTxvl3IYOGwlk9NL4hLlsHbVkOOCPuyRV2XQ
2LxoHA1gVyqXAa+EtYDcCPbar8/AI2nM6Msf0n9dKVScC7hmPIltmFECwluW
1j/8S+ZZXgKZA5S1BU141vV8CHo1g88XzsOWGWPALobM06uC2Oa0Qoi7nvut
bRF2VmABDB801tNZjO0tWADB08crekWwbRXzgbWpkL1VAnvENhc06sxERBWx
w4Sy4FIc+4CrEsk/mAmvT52Jr1TGjrudAUeE72peVMNmLUqHGKseE7YWsXwa
8PZ4Xk4zIP2ZiXC69VDa0DpsQ7lEaKve1KJBkXhoAqTmC2jkGpL7HY2HLYHx
7czNJF87DrIuBvJMGRPveghL3E6sNtyCTTN+AH2WuqHlpqSebgwEqr5eV7OD
5G+OhmGpTKeFO4kt7sDexVFROy2I7W+D4qT1UPNuMv+NKKioGb3fYUXqLwqH
uaeWTny1J/b2hxNHphS1j5B+vH7QZPXRwt2RxGN8IMEoPe2XE3H8FTAS3rCf
w4VY8iykcSsGbHQlvn8ahP7y5vi7ESu4QdenJh7eM8SVjuBd6EQX8iDO2gh9
T8w+7b5ATBMD8zjtRXc8iW0NkPS1SScJL2LWXlSyP2yJvA+xqjNS3HF2k6Mv
cdxJdGPjfrcUv3/3c0M26vKV6oHExWfQ37+F51eHEKddQCPvErIiQomVLqLu
/Jv9X28QR11ClSePHkgLJza7ghgmu6K4Ism+TLxRusL6Goco4j5vFNEuul76
DskX9EH+dE6PS9EkftcHedwaznp3l1jaF1mbVchGxRCL+iFzlZwDo7HEQX7I
aN6DqO0PSb0xP6SMzs7niSem+yOJu4fXOyaQ/MUBSOCsmUdZIrFTAKLt1MuW
SSb5BQFoTF1hwOvxv30Hol7uRXLvU0i+USBq7Zk8sDaN2DsQVbH6om49IflF
gagkpqnm21Pi/kCU7cGab55BLBqEEnc/XZ+eSQxB6LZWtAdvNqlnE4Su8fll
H80h8YtB6FKf60B5LomHBSGX8gNysvnE8UHocNx/B68UEKcHod2XVt36UEic
F4T0dRZw3WEQ5wYh6aFuj52I1I8NQkKVtdkZJSQeHITmJjIGFrBI/HQQ+nkl
We7YM+I9QWjgQMTBiufEOkGofc3lW3LlxPxBqH6xc633C+KuQPT86x6ujgpS
PzsQ5VdtMDSoJHGvQJTyeMWF6FfEGwPRPd+lOd9fE88PRN4Go3JZNf/2EYDO
iLUf5K8j9TQDkONY5S3neuIOf7T1SRyXQiPJ1/JHVGCIoU8TiTf4IS17jwud
zSR+yg+JSpgP3m0l8Ye+iPungfzPd8QrfdFEg5L17vf/vi8fxA6erhXoIPGa
q+jJn4wc348k7n4FdXxqDGrrIT5wGQm++WWzspd4nRdyf2y0oLOP+LMnona3
2OsP/3tfziK39RN64V///b5wRwmqMoJ9I8QbziBuDufiW2P///02pP8VHv1F
bHkEzb0rO/jfH+JtdmiN33/PHkz8m88GxewPP7ltirh+JzrCpVDxeI4ItuAG
+GW77byNALGlG6huO2WWv5BY5zRYr7ktx7eIeIk7POdn19EXE4+chxDGGWWR
pcQNV0Ba+P67Kjlsb50gMH7Zb6CnR+KStyCi2fanhz6Jp9yCzo9vc4oMiHVv
gwetQmUthf2/3+dpevFiazZisyLugsDT/WM6ZiRf9QG0hFWlaR0m+Y0JcGR/
+lLla8RR6bDOXK3bJxib3ZcOwsapae3XiSEDnq9MMoi8gS3TmwEyPLHWU5HY
YRJZ8KEw5FHTA9LvWDZYiJxQuZqHXT+eC6oLBkbf55P5JPOAg8OJoVuIbb4p
D7KG7LcO0ck8kXkgUH7g5L5S7DjNfHh1emv2itek/+ECMKxX1WvrJP0Ti0C7
/0/vsi7srPIikOOsijrcjT3SUwTzdY6P9PWQ/vJ0qL7z5PHPftI/ng6Wh9RF
RcZJvSgGmHpMlll+xxbMYYBBePWpmB9kvjoGSJWdqJH7TebhYUKPYrqf9hS2
mycT3IZXjO3gFp211q5isOOaiovkwTY/WQy7ZGq3v+Ul8cBi0LVwSbPhx/Zm
FMNkfsbhk0LYhlIIgrw064Mlid8j8Lw97VW7DJs1iuB4Zp2akDS2DHcJbO9y
Dby7HFtQZ+bvq81ZVIoiqX+tBB7yrUx/oUXqKZeCJD+3k7w2dtjM32fR/J2y
vquws8xLIUwgNNpQF3vkfCn4CPb7Mg2In5fClCCLEgfiplK4uOjObw8K27a3
FNyFNrvqbsB2m8sCR+FH+7ONsbcosKBb2ENEcAs2bQULDonsqHcxIf11WGAp
+nez+jYy/0YWmCyxWvl4J7bHIRZULNEamrcLe4kjC4yWcj122I0ddIIF+uL5
krL7sPs8WKAuuYg79iDpF8aCFMm+5xPW2Ja3WKCwrNRr/yHs6HsskJI6OSZm
R/onsuCe1KaMc/Zk/lQWiElLHGt2wG5NZ4GgzKuOiKPYKQUsCJGJuzvqRO7D
YAHP8vO7zZ1JvIQFnLIKr/lPYitXsOCy7KTfCRfsuFcs+CPbuL7Kley3mgVj
clfzg06T/EYWDMlrqhmfxa5sZUGPQnvcHA/sonYWtCteF33mSd6Pbha0KOmF
XPYi+Z9YUKly6/xvH3KfQRYw1Ebt3IPIfodZkOa8sqw5lOxvxvdTT8mtiST7
+zJzv75s3+hocr8+FlxS+vbxdyyJz/QbNxaKSosj7+vMPCcctTcdSMCu/9+8
/hbjC5JJv5n7WCedTixOIe9LDQvE830mhdPI8309M395xO6TT8j9Zva1vSdn
rlQGyS9lASU35nAlF3tt5sz+tOegt3nY7DQWFBgtFtEqIPFkFmjYrXrBLiL1
Ylgg/eiMglEJmTeQBR+yfL3ulZL9+bAgmhXZ/I2F7XRp5nmzc/0Tykh/NxbQ
pMc/zX1F9rWXBcUacynr16SfOQs8KOHb+VXk+zNhwYi1jrFjLbmfAQvYMe7J
LxvJ97uMBc/EvzsGd5D6eTPfp9m+xKpOsu+EUnDxpnfxdZF9RpSCeK/XwZsf
SX23UjidPd8iqo/Um/ne5bcsgQffyPMJLYE/np6enWPke/Uogfr0D4Uy30k9
+xLwWvxIO+En2Z9eCbR0qCinTJL6HxEEnjVYnDNfbNbmaghsUmLNx7iwwxYj
0Hk/HarDQzxRDGzDcu7CBdhxr4thLZ/ZFFMQW9CxGAbibfpfiGOzI5lgVn+1
9J0GdtYrOmQMDPDoamHTUukgOG/37oiV2FpBdGjQU+w31SH5m+mwN+G1ULEe
qV9SBDbnFjs+2IQtk1QIbpJJfPb7Sf6OfIhyqrQa8if56llg+/LOlrVvsQ35
bsOSH2n+g4pL8PtxJwrZqCYf2qxMbHoLJdo80nuogu399xbSfHnni4U6sf0d
ZBztt4exkuQr3UNn9W0Urq3DNox7iBouL3qhaEEsnYSW5PI99N6FLXM6Cdl8
5rrQthub9iIJ9e+YUr+xD5t9LBnRlg9GfT9I6mc+Rhpl5Q7lR0m+Zhq6zuUx
186LzDOWgQZsXpQlXib91mYi0wIh389XSL5XJuI9ks5x0gfbjTMLBT/vnjof
SByUha55mf0ODSf1QrNR4JjsMD0J29wjF/WauqVPJmPb3spFxvHoxPoUkp+T
i+bvtBwsT8MWHMpFARmhfXWZ5Lx1HvI/9qv7E53E1+Qj386at4tqscMqCpCL
lGyiax32SGcBsrQ+51ZTT/yrAGm8l+K51kj6qRaithZXfdo7Mk9wIdKqXRQ7
/JH0W1+EJPgdj237RPa3uwjN38ZYndaLreVchN6/sqs90k/2HVmEAl7kTn8Y
Ju4pQu3Fe+yqfpP9eNJR5USqhsoEiV+noxz9qT8Bk2TfsXQUVJQcaTRNnm8p
Henk/Synz12K909jIOmxreFi87G9FzIQr3ac9Vku7BEpBurM3PJDixc7ax0D
BT+5q5SyENv2LAOdHfgyNm8RNtuHgWxVjFj2QtiGYQy0+vGApbQIiacyEDve
IPi2OLZgGwNVdd3cOy5B6n9ioAKZHlmLZcQjDBTyIITJL0PqzWeiNffah/wU
iDWYyK7Pee8HRTLPGiYK0f1VukqZ2JCJuhqEIrtVsc13MhHf8rhJPXXsMCsm
0nVd4Ri+gsQPM9H1BVv0DLXIPtyYqMCqOf7OSuLzTMR+bMf3VRvb7TITrd7k
1Rm7msSvM5FtBK/Jd10SD2eiYPadnG1rybx3mKjzUo7/hD65fzwT6SytsUwD
bJmnTHQt/7OalSHZVx4TdezknObaiM0qZqJVw5INBZtJ/TImale08BDeil1f
w0SBhwKlTptjazUx0fv6UecVB0j/GWsaHSzsO0LqzZz36zgXfMeJvA+Iid55
hlsbHyf7y2ciDbGnWt9Pkvoz8/nmVsxJdCPzzcyfwbH75MQp7LhYJmrd0dVi
cYbUi2aiFUMTqRznyPs0s5+38ivND10k+z7FRJK3BR8+vESeh/PM/rhGvnR6
kf72TDTQn3Hd1pvEdzPRZIb6y8P+5H46TGQowycaH0Duo8ZE/uGDDt2BxLJM
JOCexmkfTM4LMpGMnjLlcJPso5+BHNK4QhPDSH4HA6VKfH7fE06eTxMDaU8l
XTgSRfqVMNDmMrl8x7sk/yYDOZtJqx9LIO+rMgNllEx5piaS8xIMNKbZ8ao/
ieyPj4EuCcUedU4h/kpHN96KJxxPJ/vJpaPcw6LiLoXk+a6ko18N350yisg+
Zeho3abmwmE6iQvQUYVi1B7XYvL+DBah1sFF4W7PyH4fFaHJs/zcZ6rIPHOL
UHXtmH1tNZn/SyG6r9RWqlJL9v22EOm/Sz7Prifvc2oh8lhn+Nmshdx/ayEa
5zxTodxF5vUpQEM3W/06fpD9vsxDxX0lbL1fJJ6ah65vSFp36zfZd0geUh07
Nb51ksxjnoec9i5woHOI4/epKRf1SFIbo/j+OQd9SE3gMJXFrk/PQhUKH4xu
yImTelko85GwX4M8tq1zFvK56z//gBK2lmIWUr52dMEJdWzvNZnorJOayA1d
kj/9FAko5So3mBLvSUEbEp/v2H+G5B+OQREuCkNvnpN+umHwQMLoNd9SCXw/
2WzQvPl50vsYsQuCi5+MTxWxsGXEXsA2Tk19FSHJWSsnvwber/t3cthhL2mr
A98Sw7SYIuyYpgZo8/gx2UnH5mM3gPaqpzvkmNhRgw3Q/Vjseyoi5mwEo/Dh
9YXPSf7KRuB0iGl+U43tcLMRfHh+0bi6sL0tmqCtLH2XaTc27VATaF+2Tw79
iB19vAm6v9VuFe7FrvZrAqMPSbeXD2IXFzYBZ+Yu9XXfsculm+Hq7sx9p3iW
4fv+bgaHH8cL63ixD3K3gHG0spgGH3aMWAvwfXjUMiCA7aDbAtH2UXschLGf
urdA1ukLu/ZJY2eNt0BH2MYdsJrE57TCM21a5n1dUl+kFRKbigX+rMHmVmoF
5yW6tQX62OWmrfD9obKZliH2pshW4Mvk3yq3FbtJ+R3o17w15jmMLXi0DQ5e
rtl42A475GIbXNEsM6Tbk3hYG5SHZ+gfc8S2pbfB9r3+Gq+OY7vxvwf7Tm3R
a+ew5zLfQ8ho6CfuEOIV7ZAR79ttG4qts7kd3uy60Fl0A9vbuh1ECxzeOYVj
h91oh0eeBjWVt7G1vrVDwZz+vKBH2MKsDugU2eTHXYidaMAGyYHrjiZF2DQT
NliWNG4JpmN77GVDg6M9P18x9u1TbCgv9Lm98Bl2XAob0qyepYhWYXOKd4F7
LFUj34kdxdsNWacCMo+wyT7Fu+HL5trw5C6yf9VucBy23qvcg51n0g1W6706
1frJ/oK7gepijmqPYXsKfAQeBT3RDVxSs65V7IF6duC8WG7sEP0eiI5pGf/F
g+20vQeUhd0bs/iwXc71gPGczDAZIeyMlz3g0yW/gLYMW9D1E0zGCtJKtbGb
3vRCudWhr+I62L19vXBdJKPj3GpsSdpnEA/dijTWYldrfIa1lwI8HwB2cOhn
OLt/ctxrC/YW8z4YFu3rX2eDfXCwH+q/B5VcPYS9ae4AZDepRFbYYlPLBsA9
4vg6c3tsnx0DMMH/9Ya9E7ZF/gBwz/uxKvg0drH/IMiNzbn8NgB7v/4XsKyT
FjqdiV14YQQ80W/frCxspWsjcP9J4/fhbOzH0SPQERj47nge9qvCEbA3/Bp3
hE729WMEXLJLNK3KsKvOjYJfpLWZ4Vvs297fIHPf/SCBaWwR+jg8e15v6LJH
etZ7ZP6A5fgNM65k7NSEaaioNdJyfYydVDwNOqk/hN6mYMc2T8NCG5vW5Cez
9n4xh0ZVvFxhb5yN409X06jV96s9/Iux9e/SKCEj3sQ5jdiXbTgob8mSgONN
+HyeMwc1/OPUscZm7N5zHNSrJ+80Elqx9W/O5Iuk0o06SP1SDupr3391V/tx
3F+akzpYNpHdP4Dj9mqc1OvYzKidQzhusIaTSrYQ27/8K46/3c5J2RT39rDG
cTzfi5Oqvn3vpfIPHN9/jZPSP7U9Lewn9o8oTkpEscDV9g/OF3nKSfnQnC0q
J7DvFnJSI23LVmv9xfnCZTP189+IRU+R+Wpn6t/0/zM9jT30jpP6PwUFTm0=

     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{4., 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.513559118764814*^9, 3.513559137488851*^9}, {
   3.513559337794989*^9, 3.513559384476706*^9}, {3.513605343685297*^9, 
   3.51360536731735*^9}, 3.513605459316492*^9, 3.5136055262729273`*^9, {
   3.513606056194405*^9, 3.513606076509849*^9}, {3.513607756722471*^9, 
   3.5136077660671797`*^9}, 3.513608008642021*^9, 3.513617325290505*^9, {
   3.5136173747948313`*^9, 3.513617383388447*^9}}]
}, Open  ]],

Cell["For x >= 8 use asymptotic approximation + Newtons method", "Text",
 CellChangeTimes->{{3.5135593959620523`*^9, 3.513559402404717*^9}, {
  3.513598052833786*^9, 3.513598054474304*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "asympdeux", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"asympdeux", "[", 
   RowBox[{"l1_", ",", " ", "l2_"}], "]"}], " ", ":=", " ", 
  RowBox[{"l1", " ", "-", " ", "l2", " ", "+", " ", 
   RowBox[{"l2", "/", "l1"}], " ", "+", " ", 
   RowBox[{"l2", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"l2", " ", "-", " ", "2"}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"2", " ", 
       RowBox[{"l1", "^", "2"}]}], ")"}]}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "asymp", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"asymp", "[", "z_", "]"}], " ", ":=", " ", 
   RowBox[{"asympdeux", "[", 
    RowBox[{
     RowBox[{"Log", "[", "z", "]"}], ",", " ", 
     RowBox[{"Log", "[", 
      RowBox[{"Log", "[", "z", "]"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.5136086941438103`*^9, 3.513608769136052*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "asympmega", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"asympmega", "[", "x_", "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"asymp", "[", 
        RowBox[{"Exp", "[", "x", "]"}], "]"}], " ", "-", " ", "x"}], " ", "//",
       " ", "PowerExpand"}], " ", "//", " ", "FullSimplify"}], " ", "//", " ",
     "Evaluate"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"asympmega", "[", "x", "]"}]}], "Input",
 CellChangeTimes->{{3.513608755224699*^9, 3.513608821016979*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"Log", "[", "x", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", "x"}]}], ")"}]}], "+", 
     
     RowBox[{"Log", "[", "x", "]"}]}], ")"}]}], 
  RowBox[{"2", " ", 
   SuperscriptBox["x", "2"]}]]], "Output",
 CellChangeTimes->{3.513608821393148*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"asympmega", "[", "x", "]"}], " ", "//", " ", 
  RowBox[{
   RowBox[{"Collect", "[", 
    RowBox[{"#", ",", " ", "x"}], "]"}], "&"}]}]], "Input",
 CellChangeTimes->{{3.5136088968811083`*^9, 3.5136088996728563`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   RowBox[{"Log", "[", "x", "]"}]}], "+", 
  FractionBox[
   RowBox[{"Log", "[", "x", "]"}], "x"], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "+", 
      RowBox[{"Log", "[", "x", "]"}]}], ")"}], " ", 
    RowBox[{"Log", "[", "x", "]"}]}], 
   RowBox[{"2", " ", 
    SuperscriptBox["x", "2"]}]]}]], "Output",
 CellChangeTimes->{3.5136088999471407`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LogLogPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Abs", "[", 
     RowBox[{
      RowBox[{"g", "[", "x", "]"}], " ", "-", 
      RowBox[{"asympmega", "[", "x", "]"}]}], "]"}], "/", 
    RowBox[{"Abs", "[", 
     RowBox[{"g", "[", "x", "]"}], "]"}]}], ",", " ", 
   RowBox[{"{", " ", 
    RowBox[{"x", ",", " ", "8", ",", " ", "100"}], " ", "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.513557310314353*^9, 3.51355735414613*^9}, {
  3.5135581164252157`*^9, 3.51355816196819*^9}, {3.513558253945187*^9, 
  3.513558310940605*^9}, {3.513558977227498*^9, 3.513558980409295*^9}, {
  3.5135590130217543`*^9, 3.5135590131229887`*^9}, {3.513559060843886*^9, 
  3.513559066522953*^9}, {3.513559362430254*^9, 3.513559365310474*^9}, {
  3.513608442249082*^9, 3.513608442414406*^9}, {3.513608537294693*^9, 
  3.513608581290887*^9}, {3.513608619335205*^9, 3.513608620702197*^9}, {
  3.5136088245088663`*^9, 3.513608858716755*^9}, {3.5136090011965637`*^9, 
  3.513609007493917*^9}, {3.5136173435493803`*^9, 3.5136173543368073`*^9}, {
  3.5136173918236647`*^9, 3.5136173920678167`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13k4VV0XAHAkxD3nHjfJPJbh3MGQRsqSuRLJUChJZCZTypA5c2WIBiVK
lEqZGsgWkVI0iEpS+UJFpCJS337/us/vOfecZ++1915rbeXdgbYeAnx8fJn8
fHz//VrfUzO7UcwHb0fPjugjaSQn37fX4jwfLGD+vel3TxoN7z+W2n+BD+bU
he8UtkijeO6fDtFyPogS+uHA1y6NqguebnW/xgcrvXijbU+lkUxglJtEPR8I
8o+l7foojQZln0WFd/OBw0+XjXVCMigiLLpqjQg/1J1t/jltJYMOfzoQYRXO
Dwvmpfwlv8gg2dkD7yXe8sOlBzeMumNl0SXPnXSvkQD4BNv8ipKUQ4pHhx8u
vSYA4ULxMyN35JD0jnCmxqJ50LUoQ1hjuzyaGSq/XJ0wD+4e19cvE1JA3e1N
6mvH58Gvn/IXlasV0Arrt+YH7QXB3reypm2bIorOPtNo1CwIa+xv2xkIKyHL
A+5vGjTng2wECj62QwlRdYye5Vnz4X2bGftalRJquOFMr5qdD0ZLWVNvWMro
25aryt92CUHy2UjBPf7KSORaaZB2pxB48jyVUp8qI1n3hLP++sLw73zbM8YK
FVR12z3YtUgYtmSYvPqWp4J0u0ZOvyFEIOGx0IckPlW0IjXElxEqAmNFGyvq
PFWREl/JsbYPIvBIzC/7ca8qmv+kNj/GegEsFwk7W7tpCQo0fGL0uXoBxMTr
vPtSvwQ1BqQbD6iIwiXRtLf9+ktRntGmkbRUUUheVRbsd3Mp8vCdCNAZE4V0
lb+daavVkNxWg027ncXA46Wt6eVONbStP+2xeZMYPP4kGWnjpY4Oqh8qrdNi
gOCU8jsVZQ00k7rb3luHAS4+Kyo5SzRQ5FdTQdllDFiRbGi/Sl0DRV1n7I5Z
wQBh7SWa9lwNFKN/Ut50LQPs4lVdLqzWQHHWNbnPNjDA9PMDnRJbDZSy/0v8
qAcDZq4rKegka6D8NkdX1dMMcPQT6yr/oYFKVz0aqCtkwOQf5UJiWgNVl6/b
veksA0qpiKWhsxroWfpSj7BiBmydnxZnKaCJGDaTPm1lDHAeGFeUpDRRbG9W
uG8NA441tIit5Wgir5H7mVVPGCDHtJ+Z8tRE4U6rmRZdDJC2n8ho8tFESY8q
jvY9ZYCMk+jbrABNVHwlJ2d+N55f2Lt+vXBN1LfP7YTjGwb8uhObcy1JE9nM
/Dk/O8SA03f/VHhf0ESrxfTqjfkJ0L2ZKbVxWBPBQqG9MwIEXF0qYScwqonM
ZHvFrwsScKMl5mfjhCayZUftVRAhQGj0cevmWU3ks7GF9ZskwO21gGUDSaNT
6XbeV+UIUNsw1fFjBY2Kc9QkPBQIkDVt8VQwoFHZqem7skoE7A3IlLUxolH1
5dMSqaoEXOzIdurYSKOOR4ON7jQBUXETf9huNJoTC5OUXkXA68WPjMozaSQo
Yd7UuZqA3Uo5ox45NBKVk/ZL1ifAYuPWZdwTNJLkNDRNriPgyq/crX3nacTb
NN//iSkB2XLJF+/V08g1I685YSsB03tN+j+M0aiJURs0FkBAU+cD3YidbOSg
KjV2OIiAOxeTlqV5sNHn1Qd9lYMJcKpr2HnVj41Ye9d52oXh75Obf/Ei2Wh3
U6vz7UgcD7Ngd4UTbCQY3mOWnILHJ/o9TPsVGxVkrG5RTMPx7RN9U/KejTgl
p4xupROgnPn+qe5nNrLvcjX4mkWA2Ej3vdJZNiqlh3Vs83A8BfKF+ZQ4yOLd
tJxCMQG3dK0MfQM5qO+n08m6EgImlzgeXHiQg4IYDYu3XCBgODo++HMiB51Y
HcdKLCOAaJ8/wz7FQZ9zFoh8vorHe+XL0ZUPOSjmkm9SQiUBZhJ6ZkdechCr
6bGA/A0c/0U7utU/ctCasWNz1jUELFYcLVWf46B0C5nJmjsEmF5KUG3R4yIl
16gg6wb8vGRbfoIxF1WH9Y8O3yXAMTNBoMSWi/qKi4dl7xHwRtHh7eJgLgq6
JehZ04zn15NbcCCeiwS7PD9uvk9AMiXEb5fDRZw5uj/uAQGHNq/emF3LRWhh
prPsQwJMniZ+FG7nIjv6W2/1IwLIhJBO6T4uinasej70hIBIv+EII0EeenJd
v92qG8dbbs9bg508dHe7/Ip3LwnwEzyQWRHOQ1f5/xUH9RLwgnMif81RHsra
ci8q5w0Bjf1hQZptPBTzu2RkyVsCjF9mZz0b5KGAc0kOtf34/UXtcxxBLWQ9
YaH96j0Bl1WOjb220EJwgi70+UjAlrNFJY0BWkjbiCH6Z5CANReWnTuUr4WU
RkbDMz8RIFUiPZHXrIWoY50fFYYJ+N+pkZSzk1qIb/V1m8oRAvbv35GsJ6GN
xgeyG4y+EPBoLEQtXkcbDaSE0s+/EiDzbWV9mK026tJ2yN8zhud7oHtOIUIb
od6Vgr++EfDg+LpaqfPaqDJWet/hCQIWxWoVz/ZqoyKN2bdSk3h/tF+J3Sur
g4529W249IOAD7HtrYOhOig24m6d/i8C8kJ0XYb+6qAgpaIlj6cIEFcK4SxZ
uwztehB3bOdvfD4cVrSM9umiLUHuf7/NENDs8+Vy3oAOWi9l6hv3h4Bzh7d5
+OzRQbpIrZf1l4AQ9PpBqLgOUvESMT3/j4DWFzpTys+1EYv6fH05PwnpFfaW
a89pI4GbjxTaBEh4Jj2VXb5fG313vZK+TZCEkyIlfGJ22uiD8JHpkfkkCGuk
Cg7paaNn14I8IoVJ+L1oxzGQ1kb3HG2fMRaQsF1nlbwnnza68W+Z4RlREq6s
qD1S8VwLFV9cVKHFIEHFJLvB9ZIWyraekmoiSHh8u3CeTaIWip/qTbJlkqCU
3nRE2E0LBZ+9/f0jRUJKSpeQBmihrd+iO4QkSAhRMV4eg9ffJN91dcEiEiTS
qWHDER7SMzQq1VxMwvwOjU3RnTwkcUQwdpMMCYFaEaavzvKQ4MpPX9/KklA/
1r/nTioP/ehv2x4oT0Jtg2XGmVAeesFLX5athOfPClBcZMVDLS/9ilRVSCja
pa+YtIaHqmM2EzWqJPS5thdc1eCh3CfiQz1q+Pt3w+JmhHgoMXxyq7cGCQ3G
X/2FprgoVKEbzWiSILXI/OCZIS6yDyg4Kc8lwaLgSIfNQy4ykzwofI1Hwpn7
Bh+d67loxV3nUNAmwUjta9aLq1wkSSpudl9GQpmRR8+vXC56eeUCf/lqEu47
Fuza58FFd7/+L99Fn4TkDqUer+1cVMpW41FrSVhsf0m8xoqLwspLnfYDCazW
Z/H6K7lI4sLFKlNzEib38XYUElz05+OQ5W8LHG/FobzueVw0qKIxULGBBJMS
WweLGQ6qKipjSGwm4eXirtnnQxxke7rc44MdCa82Ba6yvI/z0ZuR2TwHvD7X
tg1JN3CQigydbbmNBH4w8FlUw0ET+ZfuVjqTkJpeOZ18gYOO5lxefGg3CeIp
J8p5KRz0JO1Ku2wQCaejLe7lbeWg2vZR1859JBgqdufHW3HQGRHer/gQEi7t
eKubas5B/slXVT6Hk2CWufLrgD4HMeKvRd6MJuE8q9WhbCkHbThwnWufTsKh
xLOPpefYSPfmRLNIJglPvQNbnKfZSGZKx6k+i4SgKrPRq5NsNBJ6I1k1m4Q3
seMbD+N8nxJU9W6igAT5kVTtX71sdH9vzbGsUhL2v9fTT7rJRmtqkmaWlJFg
I2zmOVnNRpUCDu53ykkIrT5m5nedjU4X/tIbriBBu/3GnuhLbBT6fGWvURWO
52guKVXIRiqGtxV+NpIw8lgnXjTxv/qTdji9Cc/3QfcFZhwbka+dxpWbSVg1
a/pLLoaNfofONm1uJaFxQP20dQQbdV0y8CjrwPtNRr1A3J+NDkk2XnZ+RYL+
AcL7myMb/XA/IvH9NQku0+1Hve3ZyOe6a3RKHwkLWJX0Z1tcPzfxWde8w+et
fmz7Xys24sUbfSc/kaBOrDcOMmGjvtHmVfe+k+BWnpbqpctGq+8/uK/BYEJU
9gBLm4XrX/mU43uCCTfjQubYFBtJZKl9PsFkwkSgwU8OyUZjDomk2EImuMgb
P14rykbnhw0dR6WxrVtCTwiwEcWoG76uzgSq2YPm/KBRzPj/DvpoMuHPwk4y
+DuNvryQIFTZTBBRaVCuH6dRa2GwTi6PCRyqscRllEaRWryD4cuZkCWV2P34
E40+2V4Q0zdmwoiTaNje1zSyW/micNKECeUDVcwvvbh/kJ2nXWHGhA0SllrB
PTQ6PbjLTn4DE9QXevWmvaDRlnC5wn82THhwMbF38AmN6k/k8Fp2MqGP1tfS
a6FRzkDcFquDTGgz3mggdp1GWc+hdjgSj787/JxAJY3SWv/JJEYzoeB7muWf
qzSKrYgevB3LBNXlWda/KmgUEHFgv8ZhJhyuUbkuWE6jDdS+wnm5TJCYuv0l
+RyNzOZpC5zNY4J07mP3oiIaGf0a81yTz4RWc/rVnbM0WtXnp73vJI63Ebdi
upBGamVezf1FTLgcLJOSepJGArBr5NYVJkxtiP4gmEujv7qKm+2vMYF8GBpk
gPuv30v7b4xXMmHZftF7Ydk0GhdziVKvZkLOmdbi0aM06u9xZObdZsLaSAX+
77h/ux1ovTyojQk98kvjNqTQOP+ui1N7z4TEd38vqcXQ6KFqdPetD0wIVzd/
mxNNI+WyO5pWg0z4ubTEVwC7q3LVs5AhJqig3pyPkTTi3tNVbRplwlnfjd01
B2g0PKh233mGCQu/0eYFYTQCbw/pb7NMcGbuNpDBzh8t8Y+fY8L+yQK/wlAa
qUZS6XZ8FDgNJ4ZfDKHRs4TMZZHzKJic7Zpt30cjrbzDiQ8WUHDiZPRK8wAa
OfWU8rJFKaguDOHv86dRsnRrr7MYBaFzH0f2YfcXCnK/MSjInUpmnvOjUUZp
XPciigKfu6diGb40+lwXqeYuScFc58cTkl64X5052cVZTIHc66yM+r00Wm9w
++Av7IuWLxLdsU+g6Sep0hT8OVIQW+1JI4v2sP2VchSU75qN2u1BowuvAx/M
qVCw93iV/ehuGm3yWne4V5WCT+o1t09j//jJMKtaQkGtTfdqK2xj8UvNXmoU
zNRLxV7H/fV788G7zzUpWFBozHd4F41Sum9EX6UpmM6cXGCIre0eZ5DKpuD8
/PXK0640OhSjcHsdlwKNtXXB/tjyNdtqyrUp2NO0bf+enTRqWa8emqhDgfHX
XS1LsP26fuq66lLgX7J14acdNLrzJbtSQo+CK4x1132xt6s8vnxoJQXzD4a2
xrvQKO+IUbH9OgrkN97WfOdEIwN5yk3bkIKoHvHvV7EHL/UrigEFnssXXDyE
vaw1shAZ4fgf5X+miv30T00B25QC0v3Vgv3baRSRlugoZEbBPztYtBlbSWqr
5Pv/LHx2nhp24LLxnOMWFOzsuJvYu41GhA99hH8TBa6CIdPm2NVT01Z92N/f
tM4uxXZJamPUWVHwc7XYK0Hsy0V70vysKbiNFsjfd6SRLW+ZpbkNns+O/LhS
7Jk7/CIqWyhQ3dF0JwXbsudMUo8tBYWjFRXW2ON7/E1ubMXxf+7kpodd8F1/
XqYdBUMtAUPS2EPEq9j1DhRsUKpzH3KgUZLJwqgr2ylYpebNl4Ed+krz/AEn
CqRcu+MisHcHQIepMwV32xpueGBDgb9cvwsFOo4diuuxedxEk0s7KAj7tMdJ
B1v+3km/8J0UaCbYGiljz3xpqyd34f+Py4vPwx6O7R98jV0TEzX9w55GPYt+
Mi66UZDeKJs6hF1tqLLD0J2CfHOrkifYxS9WJYntoYAKcmE3Yx/ztr7Sg/32
+d3tN7EDcqLmAj0p8JU9U3oe20UjZ6nBXnw+Ms83n8Le2FBuJeJFQZzJ4sQc
7DW2KOwFtlqgxVA6tsbQy8Iib7yfNWO+JmJLRo3e9/OhQEGPkRODPV9ccGyV
L17P1WteR2D/uCAjOd+PArdCu6YQ7A9rdNY9xdYMumYeiN3Vae5Z6E/BSPwZ
P1/sxj07s7wDKHgZFaDlhX31d2jt8kAKykpDj3hgn85K7+cPosCBnJfhjp2m
Wiz0BPvmuuglu7EP3LzJO7mPgv5vqtvcsL2sOh08g/FzPje1/+zw4X8xuiEU
BG45nPWfTfb/Kf2LXRY6cuS/95cxFnY+DMX7x21Mcw+2yjnNqeNheL0nvzp7
YlMrQNE9nAL+k+uXemP/fehgrrUf5y//TUl+2KOu/oGz2JpkYGQQdt+PhPy2
CArsxgWEw7Afpp5szDmAz6f4XvWD2DcVrg+5HqRgYmB+3yHsi1VtTE4kBX1J
xkuSsY9b9K+cxj7VF/0vAzvx7Q/XligKijYs9s/FDg4WSzkaTYFjcoLfaWw3
YZVKlxgK4i3k5v5b33U61nw/D1GwfyKpsw6b0+qh0RRLwZ02FeoetqxzlE1m
HAV5p06968CeTiwvWpqA3ze/qTGI/UkaPZjALpOCc+PY3VdfjjckUtBjuaV0
DvtG7zwjh2QKbB483iqN92uRv4y3ymEKQlylZtWxjwjoHBvD1q6t4azE9uPs
fJ+cSkHM9zMcR2z12JtxdRkUrM/kP1qInb0r5m5uJgVBDhWLbmD/AZPZfVkU
mPgUrWrD7uLvCuUcpUAk89rWSeyDCUN7z+Xg89ov3WGLz+ug+5XzMbk4/99M
1PTD3mwS8t45j4Jz3QKKydiq8/85SeZTIH48t/MOdkey5Ob0kxTULyxZzsP5
ZMXevjSvUxRszxw02oR9zry4zfQ0BdGhBu99sMNFeEZ8ZyiQTKx6WY6tmGaq
F3aOguOyOhk8nM+CM0NlXMsoWCQ2c8YW58M+/zWOBuUUvLAbyzuAbbaZL1f6
Eq4Xnxskz2HLMjOIF5dxPUqtqprAbjlawmd5DcezumnjCWcaLc599km3lgLv
RiqGH+fr+pPaVUItOF8lf92li+vDC+PaoXfY2V1VR7ywv37Vl7t1H8d3zfdl
Z7HlDc2TfNsoaHn+5TWB603Mxx2OXQ8psKpk549jG3HSZ088paDZM9X3kTvu
xxr+Z8x9h/MNdbruOa5//Z6+EUIDeH3kqtsX43r5izlR8Q67vPWYiQu2+u4/
i7I/4P2+SzLkE3aK0MLhX//D+9PbrfyfN+6HrCEDfaXgw+w2jimux50DJ19s
naFg4+23PBlc33nHvIIVZinw+uFv7IGdZbSCGsGOMHxYXom9qfjpxpg5XN88
9XwtgvH5cRdpLuMTh3Tp7bcicb/Q8ins+pyQOLTl39s0gfuL219tsi4uFIfB
ncaXJXF/cn5ayGKWIw4ZHyZ+r03G9fNHwsxLrjjkbtE7X4LtNM535QZPHJSl
Pc4sOIzP9/CMuI+2OFgr7457iR3dM/amd5k4hDgQsyGpOH/UvgysXSMOTi4B
qQ0ZNBIJLc3fZyEOoTnp0am4H/P7Zjo05C4O5xOOjk7j/m+qLrmXly8O3Wal
xqWNNPp3+datkHZxGFkgbNzyjkazMY2tc//EYYnUXHbKfDa6pdq29IMuCyy7
wytpNhvZCInvub+MBWTsg+Qe7OFhp+IyPRa0fw5KSuSwkdTVMYXAFSwYaPWc
7eeyUfgqSak/q1mQEVzblqfNRnpWHqKSRizYuORcp+gKfJ8Jn/fN0poFp099
FGUZsZHFdisu14YFF+JTm5uxB/TzfaktLHg1Klwctp6NmPzs4Ze2LGBHvul8
ZcxGAem2790dWLA9L2q0xIyNOEXnnkfvYMGLf9aKhpvYqCX+i7jbThb8M9Bm
T2K7eCy3MXFlgXx9tfNFfB9Jp9s7RN1Y8LtHjKas2ehz9fj9/D0sGBvwPvhx
CxvF568RjPRggavzw7ICfJ+ROZi4fqcnC2Cv4azVVjayNJRqXOLFAouxZrFb
dni8yrvnhL1Z8NG2pT0A34ciBCv0v2AfT0i8vMQB30eGfh544sOCqh39la+x
y9oNb173ZUFK9b1XR/F96v9JZwSi
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->NCache[{
     Log[8], -19.23883321581531}, {2.0794415416798357`, -19.23883321581531}],
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& )},
  FrameTicks->{{{{-18.420680743952367`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "8"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm]}, {-16.11809565095832, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "7"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm]}, {-13.815510557964274`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm]}, {-11.512925464970229`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm]}, {-9.210340371976182, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm]}, {-6.907755278982137, 
       FormBox["0.001`", TraditionalForm]}, {-17.72753356339242, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-17.322068455284256`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-17.034386382832476`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.811242831518264`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.62892127472431, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.474770594897052`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.34123920227253, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.223456166616145`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-15.424948470398375`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-15.01948336229021, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.73180128983843, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.508657738524219`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.326336181730264`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.172185501903007`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.038654109278484`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-13.9208710736221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-13.122363377404328`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.716898269296165`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.429216196844383`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.206072645530174`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.02375108873622, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-11.86960040890896, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-11.736069016284437`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-11.618285980628055`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-10.819778284410283`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-10.414313176302118`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-10.126631103850338`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.903487552536127, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.721165995742174, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.567015315914915, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.433483923290392, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.315700887634009, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-8.517193191416238, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-8.111728083308073, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.824046010856292, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.600902459542082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.418580902748127, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.264430222920869, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.1308988302963465`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.013115794639964, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{-18.420680743952367`, 
       FormBox["\"\"", TraditionalForm]}, {-16.11809565095832, 
       FormBox["\"\"", TraditionalForm]}, {-13.815510557964274`, 
       FormBox["\"\"", TraditionalForm]}, {-11.512925464970229`, 
       FormBox["\"\"", TraditionalForm]}, {-9.210340371976182, 
       FormBox["\"\"", TraditionalForm]}, {-6.907755278982137, 
       FormBox["\"\"", TraditionalForm]}, {-17.72753356339242, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-17.322068455284256`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-17.034386382832476`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.811242831518264`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.62892127472431, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.474770594897052`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.34123920227253, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.223456166616145`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-15.424948470398375`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-15.01948336229021, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.73180128983843, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.508657738524219`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.326336181730264`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.172185501903007`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.038654109278484`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-13.9208710736221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-13.122363377404328`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.716898269296165`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.429216196844383`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.206072645530174`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.02375108873622, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-11.86960040890896, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-11.736069016284437`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-11.618285980628055`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-10.819778284410283`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-10.414313176302118`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-10.126631103850338`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.903487552536127, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.721165995742174, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.567015315914915, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.433483923290392, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.315700887634009, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-8.517193191416238, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-8.111728083308073, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.824046010856292, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.600902459542082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.418580902748127, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.264430222920869, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.1308988302963465`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.013115794639964, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}, {{{2.302585092994046, 
       FormBox["10", TraditionalForm]}, {4.605170185988092, 
       FormBox["100", TraditionalForm]}, {3.912023005428146, 
       FormBox["50", TraditionalForm]}, {6.214608098422191, 
       FormBox["500", TraditionalForm]}, {2.995732273553991, 
       FormBox["20", TraditionalForm]}, {5.298317366548036, 
       FormBox["200", TraditionalForm]}, {3.4011973816621555`, 
       FormBox["30", TraditionalForm]}, {5.703782474656201, 
       FormBox["300", TraditionalForm]}, {2.70805020110221, 
       FormBox["15", TraditionalForm]}, {5.0106352940962555`, 
       FormBox["150", TraditionalForm]}, {4.248495242049359, 
       FormBox["70", TraditionalForm]}, {6.551080335043404, 
       FormBox["700", TraditionalForm]}, {2.3978952727983707`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.4849066497880004`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.5649493574615367`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.6390573296152584`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.772588722239781, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.833213344056216, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.8903717578961645`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.9444389791664403`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.6888794541139363`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.700480365792417, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.787491742782046, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.867534450455582, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.941642422609304, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.075173815233827, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.135798437050262, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.19295685089021, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.247024072160486, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.991464547107982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.396929655216146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{2.302585092994046, 
       FormBox["\"\"", TraditionalForm]}, {4.605170185988092, 
       FormBox["\"\"", TraditionalForm]}, {3.912023005428146, 
       FormBox["\"\"", TraditionalForm]}, {6.214608098422191, 
       FormBox["\"\"", TraditionalForm]}, {2.995732273553991, 
       FormBox["\"\"", TraditionalForm]}, {5.298317366548036, 
       FormBox["\"\"", TraditionalForm]}, {3.4011973816621555`, 
       FormBox["\"\"", TraditionalForm]}, {5.703782474656201, 
       FormBox["\"\"", TraditionalForm]}, {2.70805020110221, 
       FormBox["\"\"", TraditionalForm]}, {5.0106352940962555`, 
       FormBox["\"\"", TraditionalForm]}, {4.248495242049359, 
       FormBox["\"\"", TraditionalForm]}, {6.551080335043404, 
       FormBox["\"\"", TraditionalForm]}, {2.3978952727983707`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.4849066497880004`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.5649493574615367`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.6390573296152584`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.772588722239781, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.833213344056216, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.8903717578961645`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.9444389791664403`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.6888794541139363`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.700480365792417, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.787491742782046, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.867534450455582, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.941642422609304, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.075173815233827, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.135798437050262, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.19295685089021, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.247024072160486, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.991464547107982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.396929655216146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}},
  GridLines->{None, None},
  Method->{},
  PlotRange->NCache[{{
      Log[8], 
      Log[100]}, {-19.23883321581531, -6.437728548418332}}, {{
    2.0794415416798357`, 
    4.605170185988092}, {-19.23883321581531, -6.437728548418332}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{{{2.302585092994046, 
      FormBox["10", TraditionalForm]}, {4.605170185988092, 
      FormBox["100", TraditionalForm]}, {3.912023005428146, 
      FormBox["50", TraditionalForm]}, {6.214608098422191, 
      FormBox["500", TraditionalForm]}, {2.995732273553991, 
      FormBox["20", TraditionalForm]}, {5.298317366548036, 
      FormBox["200", TraditionalForm]}, {3.4011973816621555`, 
      FormBox["30", TraditionalForm]}, {5.703782474656201, 
      FormBox["300", TraditionalForm]}, {2.70805020110221, 
      FormBox["15", TraditionalForm]}, {5.0106352940962555`, 
      FormBox["150", TraditionalForm]}, {4.248495242049359, 
      FormBox["70", TraditionalForm]}, {6.551080335043404, 
      FormBox["700", TraditionalForm]}, {2.3978952727983707`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.4849066497880004`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.5649493574615367`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.6390573296152584`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.772588722239781, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.833213344056216, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.8903717578961645`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.9444389791664403`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {3.6888794541139363`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.0943445622221, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.382026634673881, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.499809670330265, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.700480365792417, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.787491742782046, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.867534450455582, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.941642422609304, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.075173815233827, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.135798437050262, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.19295685089021, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.247024072160486, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.991464547107982, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.396929655216146, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}, {{-18.420680743952367`, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "8"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {-16.11809565095832, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "7"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {-13.815510557964274`, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {-11.512925464970229`, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {-9.210340371976182, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {-6.907755278982137, 
      FormBox["0.001`", TraditionalForm]}, {-17.72753356339242, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-17.322068455284256`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-17.034386382832476`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-16.811242831518264`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-16.62892127472431, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-16.474770594897052`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-16.34123920227253, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-16.223456166616145`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-15.424948470398375`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-15.01948336229021, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-14.73180128983843, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-14.508657738524219`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-14.326336181730264`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-14.172185501903007`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-14.038654109278484`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-13.9208710736221, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-13.122363377404328`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-12.716898269296165`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-12.429216196844383`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-12.206072645530174`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-12.02375108873622, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-11.86960040890896, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-11.736069016284437`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-11.618285980628055`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-10.819778284410283`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-10.414313176302118`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-10.126631103850338`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-9.903487552536127, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-9.721165995742174, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-9.567015315914915, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-9.433483923290392, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-9.315700887634009, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-8.517193191416238, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-8.111728083308073, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.824046010856292, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.600902459542082, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.418580902748127, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.264430222920869, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.1308988302963465`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.013115794639964, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}}]], "Output",
 CellChangeTimes->{{3.5135573214302073`*^9, 3.513557354385651*^9}, 
   3.513557758182899*^9, {3.5135581170962477`*^9, 3.513558162187024*^9}, {
   3.513558254495666*^9, 3.513558311359303*^9}, {3.513558977559112*^9, 
   3.513558980650448*^9}, 3.513559013802003*^9, {3.513559061198783*^9, 
   3.513559066744019*^9}, {3.513559363052656*^9, 3.5135593657172422`*^9}, 
   3.513608442643084*^9, {3.5136085442710857`*^9, 3.513608581506122*^9}, 
   3.513608621294065*^9, {3.5136088270301533`*^9, 3.5136088590114527`*^9}, 
   3.513609007939919*^9, {3.51361734616556*^9, 3.513617354687171*^9}, 
   3.513617392476912*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Newton' s Method", "Subsection",
 CellChangeTimes->{{3.513602857348284*^9, 3.5136028586042013`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"g", "[", "x", "]"}], "==", " ", "y"}], ",", " ", "x"}], "]"}], 
  " ", "//", " ", "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.513602622449737*^9, 3.5136026515106916`*^9}, 
   3.5136027297520857`*^9, {3.5136214237230988`*^9, 3.5136214251649237`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"x", "\[Rule]", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", "y"}]], "-", "y"}]}], "}"}], "}"}]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{{3.513602631420886*^9, 3.513602651693515*^9}, 
   3.51360272975314*^9, 3.513621425720574*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"x", " ", "\[Equal]", " ", 
    RowBox[{
     RowBox[{"Exp", "[", 
      RowBox[{"-", "z"}], "]"}], " ", "-", " ", "z"}]}], ",", " ", "z"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.513602685896841*^9, 3.513602713375729*^9}, {
  3.513621432591825*^9, 3.513621453031701*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"InverseFunction", "::", "\<\"ifun\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Inverse functions are being \
used. Values may be lost for multivalued inverses.\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/InverseFunction/ifun\\\", ButtonNote -> \\\
\"InverseFunction::ifun\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.5136026951724043`*^9, 3.5136027139309483`*^9}, {
  3.513621445164699*^9, 3.513621453363387*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "::", "\<\"ifun\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Inverse functions are being \
used by \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(Solve\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\", so some solutions may not be found; \
use Reduce for complete solution information.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\
\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/Solve/ifun\\\", \
ButtonNote -> \\\"Solve::ifun\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.5136026951724043`*^9, 3.5136027139309483`*^9}, {
  3.513621445164699*^9, 3.5136214533666487`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"z", "\[Rule]", 
    RowBox[{
     RowBox[{"-", "x"}], "+", 
     RowBox[{"ProductLog", "[", 
      SuperscriptBox["\[ExponentialE]", "x"], "]"}]}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.513602695196341*^9, 3.5136027139346848`*^9}, {
  3.513621445195704*^9, 3.513621453367908*^9}}]
}, Open  ]],

Cell["\<\
z = g[x];
x = Exp[-z] - z;
x + z - Exp[-z] == 0;\
\>", "Text",
 CellChangeTimes->{{3.513602789031088*^9, 3.513602836898217*^9}, {
  3.513602887116296*^9, 3.513602916841878*^9}, {3.51360517938315*^9, 
  3.513605192067502*^9}, {3.513621459133253*^9, 3.513621465134284*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x_", ",", " ", "z_"}], "]"}], " ", ":=", " ", 
   RowBox[{"x", " ", "+", " ", "z", " ", "-", " ", 
    RowBox[{"Exp", "[", 
     RowBox[{"-", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"zold", " ", "-", " ", 
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"x", ",", " ", "zold"}], "]"}], " ", "/", " ", 
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"x", ",", " ", "zold"}], "]"}], ",", " ", "zold"}], "]"}]}]}], 
  " ", "//", " ", "Together"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Series", "[", 
    RowBox[{"%", ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", 
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{"-", "zold"}], "]"}], " ", "-", " ", "zold"}], ",", " ", 
       "2"}], "}"}]}], "]"}], " ", "//", " ", "PowerExpand"}], " ", "//", " ",
   "FullSimplify"}]}], "Input",
 CellChangeTimes->{{3.5136028738918123`*^9, 3.513602963577283*^9}, {
   3.513603010258129*^9, 3.513603088727942*^9}, {3.5136034882071466`*^9, 
   3.5136035369054337`*^9}, {3.513605200209917*^9, 3.513605221499331*^9}, 
   3.5136096230247097`*^9, {3.513609707738575*^9, 3.5136097082956142`*^9}, {
   3.513682520447404*^9, 3.51368257283631*^9}, {3.513682642926304*^9, 
   3.513682653295375*^9}, {3.513683070619629*^9, 3.513683070700397*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", "zold"], " ", "x"}], "-", "zold"}], 
   RowBox[{"1", "+", 
    SuperscriptBox["\[ExponentialE]", "zold"]}]]}]], "Output",
 CellChangeTimes->{{3.513602957902141*^9, 3.513602963897065*^9}, {
   3.513603084113771*^9, 3.513603088931748*^9}, {3.513603518915206*^9, 
   3.513603537677311*^9}, 3.513605222120284*^9, 3.513609623579673*^9, 
   3.5136097086703243`*^9, 3.513621487279584*^9, 3.5136820564209623`*^9, 
   3.513682378544633*^9, 3.5136824989508533`*^9, {3.513682531539763*^9, 
   3.513682572991997*^9}, {3.5136826432435837`*^9, 3.513682653540018*^9}, 
   3.5136830709396152`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"zold", "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      FractionBox["1", 
       RowBox[{"1", "+", 
        SuperscriptBox["\[ExponentialE]", "zold"]}]]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"x", "-", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", "zold"}]], "+", "zold"}], ")"}]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", 
      RowBox[{"x", "-", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", "zold"}]], "+", "zold"}], "]"}], "3"],
    SeriesData[$CellContext`x, E^(-$CellContext`zold) - $CellContext`zold, {},
      0, 3, 1],
    Editable->False]}],
  SeriesData[$CellContext`x, 
   E^(-$CellContext`zold) - $CellContext`zold, {$CellContext`zold, -1 + (1 + 
      E^$CellContext`zold)^(-1)}, 0, 3, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.513602957902141*^9, 3.513602963897065*^9}, {
   3.513603084113771*^9, 3.513603088931748*^9}, {3.513603518915206*^9, 
   3.513603537677311*^9}, 3.513605222120284*^9, 3.513609623579673*^9, 
   3.5136097086703243`*^9, 3.513621487279584*^9, 3.5136820564209623`*^9, 
   3.513682378544633*^9, 3.5136824989508533`*^9, {3.513682531539763*^9, 
   3.513682572991997*^9}, {3.5136826432435837`*^9, 3.513682653540018*^9}, 
   3.513683070942708*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"h", "[", 
   RowBox[{"x_", ",", " ", "z_"}], "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x", ",", " ", "z"}], "]"}], " ", "/", " ", 
   RowBox[{"Sqrt", "[", 
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"x", ",", " ", "z"}], "]"}], ",", " ", "z"}], "]"}], 
    "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"h", "[", 
  RowBox[{"x", ",", " ", "z"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"zold", " ", "-", " ", 
    RowBox[{
     RowBox[{"h", "[", 
      RowBox[{"x", ",", " ", "zold"}], "]"}], " ", "/", " ", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"h", "[", 
        RowBox[{"x", ",", " ", "zold"}], "]"}], ",", " ", "zold"}], "]"}]}]}],
    " ", "//", " ", "Together"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FullSimplify", "[", 
   RowBox[{"Numerator", "[", "%", "]"}], "]"}], " ", "/", " ", 
  RowBox[{"Simplify", "[", 
   RowBox[{"Denominator", "[", "%", "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Series", "[", 
    RowBox[{"%", ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", 
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{"-", "zold"}], "]"}], " ", "-", " ", "zold"}], ",", " ", 
       "2"}], "}"}]}], "]"}], " ", "//", " ", "PowerExpand"}], " ", "//", " ",
   "FullSimplify"}]}], "Input",
 CellChangeTimes->{{3.5136820508545017`*^9, 3.513682175434195*^9}, {
  3.513682432794175*^9, 3.513682434049315*^9}, {3.513682502108327*^9, 
  3.513682507336473*^9}, {3.5136825877859497`*^9, 3.513682593622447*^9}, {
  3.513683010634708*^9, 3.5136830566730127`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", "z"}]]}], "+", "x", "+", "z"}], 
  SqrtBox[
   RowBox[{"1", "+", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", "z"}]]}]]]], "Output",
 CellChangeTimes->{{3.51368212534927*^9, 3.513682175730422*^9}, {
   3.5136823744393044`*^9, 3.513682380850563*^9}, 3.513682434444376*^9, 
   3.513682507854863*^9, {3.513682594360724*^9, 3.513682601484243*^9}, {
   3.513683011228167*^9, 3.513683058033331*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", "+", "zold", "+", 
   RowBox[{
    SuperscriptBox["\[ExponentialE]", "zold"], " ", 
    RowBox[{"(", 
     RowBox[{"2", "+", 
      RowBox[{"zold", " ", 
       RowBox[{"(", 
        RowBox[{"2", "+", "zold"}], ")"}]}], "+", 
      RowBox[{"x", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", "zold"]}], "+", "zold"}], 
        ")"}]}]}], ")"}]}]}], 
  RowBox[{"1", "+", 
   RowBox[{"2", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"2", " ", "zold"}]]}], "+", 
   RowBox[{
    SuperscriptBox["\[ExponentialE]", "zold"], " ", 
    RowBox[{"(", 
     RowBox[{"4", "+", "x", "+", "zold"}], ")"}]}]}]]], "Output",
 CellChangeTimes->{{3.51368212534927*^9, 3.513682175730422*^9}, {
   3.5136823744393044`*^9, 3.513682380850563*^9}, 3.513682434444376*^9, 
   3.513682507854863*^9, {3.513682594360724*^9, 3.513682601484243*^9}, {
   3.513683011228167*^9, 3.513683058036216*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"zold", "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      FractionBox["1", 
       RowBox[{"1", "+", 
        SuperscriptBox["\[ExponentialE]", "zold"]}]]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"x", "-", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", "zold"}]], "+", "zold"}], ")"}]}], "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"2", " ", "zold"}]], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"x", "-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", "zold"}]], "+", "zold"}], ")"}], "2"]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", 
        SuperscriptBox["\[ExponentialE]", "zold"]}], ")"}], "3"]}]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", 
      RowBox[{"x", "-", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", "zold"}]], "+", "zold"}], "]"}], "3"],
    SeriesData[$CellContext`x, E^(-$CellContext`zold) - $CellContext`zold, {},
      0, 3, 1],
    Editable->False]}],
  SeriesData[$CellContext`x, 
   E^(-$CellContext`zold) - $CellContext`zold, {$CellContext`zold, -1 + (1 + 
      E^$CellContext`zold)^(-1), Rational[1, 2] 
    E^(2 $CellContext`zold) (1 + E^$CellContext`zold)^(-3)}, 0, 3, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.51368212534927*^9, 3.513682175730422*^9}, {
   3.5136823744393044`*^9, 3.513682380850563*^9}, 3.513682434444376*^9, 
   3.513682507854863*^9, {3.513682594360724*^9, 3.513682601484243*^9}, {
   3.513683011228167*^9, 3.513683058060199*^9}}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{640, 750},
WindowMargins->{{Automatic, 82}, {39, Automatic}},
ShowSelection->True,
FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 133, 2, 27, "Input"],
Cell[681, 24, 362, 10, 43, "Input"],
Cell[1046, 36, 319, 6, 26, "Text"],
Cell[CellGroupData[{
Cell[1390, 46, 675, 18, 27, "Input"],
Cell[2068, 66, 2101, 40, 223, "Output"]
}, Open  ]],
Cell[4184, 109, 381, 7, 26, "Text"],
Cell[CellGroupData[{
Cell[4590, 120, 1144, 25, 43, "Input"],
Cell[5737, 147, 10883, 183, 221, "Output"]
}, Open  ]],
Cell[16635, 333, 197, 2, 26, "Text"],
Cell[CellGroupData[{
Cell[16857, 339, 1671, 44, 58, "Input"],
Cell[18531, 385, 824, 21, 49, "Output"],
Cell[19358, 408, 14072, 236, 219, "Output"]
}, Open  ]],
Cell[33445, 647, 260, 5, 26, "Text"],
Cell[CellGroupData[{
Cell[33730, 656, 1548, 41, 58, "Input"],
Cell[35281, 699, 2625, 53, 165, "Output"],
Cell[37909, 754, 43880, 776, 235, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[81826, 1535, 1500, 39, 58, "Input"],
Cell[83329, 1576, 1640, 40, 165, "Output"],
Cell[84972, 1618, 17901, 298, 244, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[102910, 1921, 1477, 37, 58, "Input"],
Cell[104390, 1960, 1822, 50, 165, "Output"],
Cell[106215, 2012, 18345, 305, 221, "Output"]
}, Open  ]],
Cell[124575, 2320, 257, 3, 26, "Text"],
Cell[CellGroupData[{
Cell[124857, 2327, 1359, 35, 58, "Input"],
Cell[126219, 2364, 2022, 53, 165, "Output"],
Cell[128244, 2419, 10514, 177, 221, "Output"]
}, Open  ]],
Cell[138773, 2599, 362, 6, 26, "Text"],
Cell[CellGroupData[{
Cell[139160, 2609, 1220, 31, 58, "Input"],
Cell[140383, 2642, 2190, 55, 165, "Output"],
Cell[142576, 2699, 9439, 159, 229, "Output"]
}, Open  ]],
Cell[152030, 2861, 189, 2, 26, "Text"],
Cell[152222, 2865, 942, 25, 73, "Input"],
Cell[CellGroupData[{
Cell[153189, 2894, 590, 15, 73, "Input"],
Cell[153782, 2911, 500, 18, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[154319, 2934, 249, 6, 27, "Input"],
Cell[154571, 2942, 439, 15, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[155047, 2962, 1104, 22, 27, "Input"],
Cell[156154, 2986, 33997, 626, 235, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[190188, 3617, 106, 1, 34, "Subsection"],
Cell[CellGroupData[{
Cell[190319, 3622, 343, 8, 27, "Input"],
Cell[190665, 3632, 354, 10, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[191056, 3647, 335, 9, 27, "Input"],
Cell[191394, 3658, 600, 11, 40, "Message"],
Cell[191997, 3671, 743, 13, 58, "Message"],
Cell[192743, 3686, 351, 10, 34, "Output"]
}, Open  ]],
Cell[193109, 3699, 281, 7, 56, "Text"],
Cell[CellGroupData[{
Cell[193415, 3710, 1393, 34, 73, "Input"],
Cell[194811, 3746, 719, 15, 51, "Output"],
Cell[195533, 3763, 1349, 33, 48, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[196919, 3801, 1667, 45, 103, "Input"],
Cell[198589, 3848, 519, 13, 58, "Output"],
Cell[199111, 3863, 1030, 28, 54, "Output"],
Cell[200144, 3893, 1677, 45, 98, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
